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ABSTRACT 


^  This  thesis  developed  a  data  acquisition  system  to  be 
used  in  conjunction  with  the  3.5*  x  5.0*  low  speed  wind 
tunnel  at  the  Naval  Postgraduate  School.  Interactive 
graphic  programs  were  developed  to  aid  in  data  acquisiton 
and  analysis.  In  addition,  the  internal  balance  that  was 
designed  by  Major  Scott  Hair  and  Major  Chris  Sargent  was 
redesigned  to  correct  some  problems  encountered  with  the 
drag  component.  The  balance  was  also  instrumented  to  record 
the  pitch  and  yaw  moment  components.  A  calibration  rig  was 
designed  and  constructed  in  order  to  evaluate  the 
interactions  of  the  different  components.  The  equipment 
used  and  yj  programs  developed  for  data  acquisition  and 
analysis  were  adequate.  However,  balance  calibration 
revealed  problems  with  the  calibration  rig  and  location  of 
the  roll  component  strain  gage.  Both  of  these  problems  will 


have  to  be  corrected  before  accurate  readings  can  be 


expected  from  this  balance  design. 
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I.  INTRODUCTION 

A.  BACKGROUND 

This  project  used  the  3.5*  x  5.0'  low  speed  wind  tunnel 
at  the  Naval  Postgraduate  School  to  continue  the 
aerodynamic  study  of  the  effects  of  helicopter  noses  and 
tails  on  drag  conducted  by  Major  Mair  [Ref.  1]  and  Major 
Sargent  [Ref.  2].  Their  work  included  the  construction  of 
nine  various  helicopter  configurations,  a  sting  mounted 
support  system  and  a  four-degree-of-freedom  balance  that 
was  internal  to  the  model.  They  also  studied  the  airflow 
around  the  various  configurations  with  cotton  tufting. 

To  reduce  and  analyze  the  data,  Majors  Mair  and  Sargent 
developed  several  independent  computer  programs.  These 
programs  calibrated  the  balance,  corrected  the  raw  data 
from  the  wind  tunnel  runs,  computed  the  equivalent  flat 
plate  area  and  produced  plots  of  various  parameters  for 
comparison.  However,  due  to  problems  encountered  with  the 
drag  component  of  the  balance,  their  results  were 
inconclusive. 

B.  GOALS 

The  primary  goal  of  this  project  was  to  provide  the 
students  enrolled  in  the  helicopter  design  class  at  the 
Naval  Postgraduate  School  with  a  laboratory  type  set-up 
that  would  develop  realistic  Equivalent  Flat  Plate  Area 


information  for  various  helicopter  configurations.  This 
included  creating  interactive  computer  progreuas  that  the 
students  could  use  with  the  personal  computer  located  at 
the  wind  tunnel. 

The  secondaxY  goals  of  this  project  were  to  upgrade  the 
two-axis  internal  wind  tunnel  balance  to  a  six-axis 
internal  balance  and  to  develop  a  calibration  rig  to 
evaluate  the  interactions  of  the  balance  components. 

Three  landing  gear  configurations  were  also  designed 
and  constructed  for  future  analysis  of  the  drag  that  they 
add  to  the  helicopter. 
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A.  LANDING  GEAR  DESIGN 

To  provide  a  realistic  representation  of  landing  gear 
used  with  modern-day  helicopters,  one  type  of  landing  gear 
was  selected  for  each  nose  shape  (Figures  2. 1-2. 3). 
Planviews  for  the  three  types  of  landing  gear  were  prepared 
and  are  included  in  Appendix  A. 

For  the  attack  nose,  a  skid  type  of  landing  gear  was 
constructed  of  aluminum  tubing  secured  to  an  aluminum 
plate.  This  type  of  landing  gear  is  considered  a  fixed  gear 
but  was  chosen  because  of  its  wide  use.  for  numerous 
helicopters.  For  both  the  smooth  nose  and  blunt  nose  a 
simulated  retractable  gear  was  constructed  of  wood 
stubwings  and  model  airplane  tires.  Threaded  inserts  were 
mounted  in  the  noses  and  stubwings  to  allow  easy  removal  of 
the  wheel  and  strut  assemblies.  This  allowed  the  models  to 
be  tested  in  both  the  clean  and  dirty  configuration. 

B.  INTERNAL  BALANCE  MODIFICATION 

A  modified  Mair/Sargent  balance.  Figures  2. 4-2. 7,  was 
used  for  this  project. 

To  improve  the  output  recorded  from  the  axial 
component,  the  cuts  (see  Figure  2.4)  alongside  that  cavity 
were  increased  by  1/16  of  an  inch.  In  addition,  the  cavity 
itself  was  squared  off  thus  reducing  the  curvature  of  the 


\  flu.  cjr 

J  ?J'  Dpiv^eo  »+OL,e5 

I  '8  rcxi  tf.A6e  vw«ae^ 


^ee-TioM 
AKi  c**oric^ 

IT*  Mc&ev 


Figure  2.4  Internal  Balance  with  Modifications 


Figure  2.5  Re-Wired  Internal  Balance 


surfaces  in  the  cavity.  These  modifications  increased  the 
flat  area  upon  which  the  strain  gages  could  be  placed. 

An  area  (see  Figure  2.6),  similar  to  that  for  the 
pitching  moment  component,  was  cut  to  allow  recording  of 
the  yawing  moment  component. 

For  compatedsility  and  increased  accuracy,  the  aluminum 
strain  gages  were  removed  and  replaced  by  EA-09-062AQ-350 
stainless  steel  ones.  These  gages  were  smaller  and  thus 
allowed  for  better  placement  within  the  cavities.  To 
provide  a  longer  life,  the  gages  were  bonded  to  the  balance 
with  an  M-Bond  AE-15  adhesive  system.  They  were  cured  at  a 
temperature  of  150  degrees  Fahrenheit  for  two  hours. 

It  was  desired  to  record  the  six  component  forces  on 
the  helicopter;  lift,  drag,  yaw,  pitching  moment,  yawing 
moment  and  rolling  moment.  However,  since  the  internal 
balance  was  designed  to  record  only  four  components,  the 
sting  support  was  instrumented  to  record  the  yaw  force  and 
rolling  moment  (Figure  2.8). 

The  gages  for  the  yaw  component  were  placed  on  the  side 
of  the  sting  support  to  undergo  tension  and  compression 
when  subjected  to  a  yawing  force.  The  gages  for  the  rolling 


moment  component  were  placed  on  top  and  bottom  of  the  sting 
support  at  a  45  degree  angle  to  the  sting  axis.  Thus,  they 
experienced  tension  and  compression  when  the  model  was 
subjected  to  a  rolling  moment. 
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In  order  to  determine  any  Interaction  between  the  six 
recording  components,  a  calibration  rig  was  designed  and 
mounted  to  the  main  fuselage  (Figure  2.9).  The  pans  and 
pullies  were  arranged  to  simulate  the  twelve  forces  and 
moments  that  the  helicopter  models  would  experience  in  the 
wind  tunnel.  Each  pan,  or  component  was  loaded  from  zero  to 
twenty  pounds  in  one  pound  increments.  With  each  loading, 
readings  from  the  other  five  components  were  recorded.  This 
method  was  conducted  until  all  six  components  were  loaded 
in  both  the  positive  and  negative  direction  and  produced 
thirty  interaction  matrices. 

A  balance  calibration  program.  Figure  A. 16,  was  written 
to  determine  the  relations  required  to  convert  the  raw  data 
counts  to  actual  forces  and  moments.  For  each  component 
loading,  the  prime  gage  constants  were  determined  using  the 
following  least  squares  curve  fit  [Ref.  3]: 

[Sum(Xi) ^2]*K1  +  [Sum(Xi^3) ]*K2  =  Sum(Xi*Yi) 

[Sum(Xi) ''3]*K1  +  [Sum(Xi^4)  ]*K2  *  Sum(  (Xi^2)  *Yi) 

where  Xi  is  the  raw  data  count 
and  Yi  is  the  applied  load 

Once  these  constants  were  computed  for  all  twelve  loadings, 
the  raw  data  counts  were  converted  to  forces  and  moments. 
Then  for  each  interaction  matrix,  the  same  least  squares 
equations  were  used  to  determine  the  interaction 
coefficients.  These  prime  gage  constants  and  interaction 


coefficients  were  stored  for  use  in  the  reduction  of  the 
raw  data  recorded  during  the  wind  tunnel  tests. 


D.  DATA  ACQUISITION 

To  improve  data  reduction,  it  was  desired  to  have  a 
data  acquisition  system  built  into  the  wind  tunnel 
instrumentation.  The  strain  gages  on  the  internal  balance 
and  support  sting  were  connected  to  a  Pacific  Instrviments 
model  8255  transducer  amplifier  (Figure  2.10).  The  outputs 
from  this  unit  were  then  routed  to  data  acquisition  cards 
mounted  in  an  IBM  PC  AT.  A  data  acquisition  program,  Figure 
A. 10,  was  incorporated  into  the  interactive  program  set 
that  allowed  for  quick  and  easy  recording  of  test  data. 

Having  the  transducer  amplifier  connected  to  the  strain 
gages  allowed  for  easy  zeroing  and  balancing  of  the  gages. 
The  data  acquisition  set-up  provided  real  time  readout  of 
the  forces  that  the  helicopter  was  experiencing  in  the  wind 
tunnel . 


III. 


A.  DATA  COLLECTION  AND  REDUCTION 

The  data  collection  program.  Figure  A. 10,  was  designed 
to  record  the  data  in  a  standardized  collection  method. 
Interactive  steps  instruct  the  user  to  follow  the 
procedures  listed  below. 


1)  .  Zero  all  amplifiers  without  the  model  in  place. 

2)  .  Mount  the  model  to  the  sting  support  and  record 

a  zero  force  reading. 

3)  .  Place  the  calibration  switches  to  the  +  position 

and  record  a  calibration  reading. 

4)  .  Replace  the  calibration  switchres  to  the  center 

position  and  start  the  wind  tunnel. 

5)  .  Record  first  and  last  data  point  at  zero  angle  of 

attack  with  all  other  readings  between  plus  ten 
degrees  and  minus  eight  degrees  angle  of  attack. 


By  using  a  delay  loop,  changes  could  be  made  to  the 
angle  of  attack  of  the  model  before  the  next  set  of  data 
points  were  recorded.  For  each  tunnel  speed,  the  data 
recorded  for  the  various  angles  of  attack  were  stored  on 
separate  files. 

Once  the  tunnel  runs  were  completed  and  the  data  was 
recorded  on  file,  another  program,  Figure  A. 11,  was 
designed  to  convert  the  raw  readings  to  readings  of  forces 
and  monemts.  The  sixty  interaction  coefficients  developed 
from  the  balance  calibration  were  incorporated  into  this 
data  reduction.  The  following  equations,  obtained  from  Mr. 
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David  Backs  at  the  NASA  AMES  Reseasrch  Center,  were  used  to 
correct  for  the  Interaction  of  the  balance  components. 


FI*  -  FI  -  (delFl/delF2)*F2  -  (delFl/delF3) *F3  -  . 

-  (delFl/delF2^2)*F2^2  -  .  - (delFl/delF6^2) *F6^2 

Fl"»  FI  -  (delFl/delF2)*F2*- . 

-  (delFl/delF2^2)*F2'^2  .  -(delFl/delF6^2)*F6''"2 

These  equation  were  written  for  each  component  and 
placed  in  an  iterative  loop  that  checked  the  difference 
between  the  two  prime  values.  After  the  forces  were 
corrected  for  component  interaction,  a  weight  tare  equation 
was  used  to  correct  for  the  weight  of  the  model 


B.  ANALYSIS  OF  DATA 

The  main  file  of  the  interactive  programs.  Figure  A. 9, 
controlled  the  data  recording,  data  reduction  and  data 
analysis  with  a  menu  format.  For  data  analysis,  the  stored 
converted  data  readings  were  used  to  calculate  the  lift  and 
drag  coefficients  and  equivalent  flat  plate  area  for  each 
angle  of  attack.  Files  were  created  for  coefficient  of  lift 
versus  angle  of  attack,  coefficient  of  drag  versus 
coefficient  of  lift,  coefficient  of  drag  versus  coefficient 
of  lift  squared  and  equivalent  flat  plate  area  versus  angle 
of  attack.  There  was  one  file  of  each  created  for  each 
tunnel  speed. 

A  plotting  routine.  Figure  A. 15,  was  included  in  the 
interactive  programs  to  allow  quick  analysis  of  the 


could  be  shown  on  one  graph.  A  delay  loop  was  incorporated 
into  the  plotting  routine  to  allow  for  the  option  of 
obtaining  a  hard  copy  of  the  graph  by  using  the  print 
screen  command. 


A.  BALANCE  CALIBRATION 

The  balance  was  loaded  in  the  twelve  component 
directions  and  the  balance  calibration  program  was  used  to 
produce  the  tables  B.2  through  B.13..  During  the  balance 
calibration,  a  drift  in  each  of  the  components  was  noted 
under  steady  state  conditions.  To  correct  for  this  problem 
it  was  assumed  that  each  component  had  a  constant  drift 
rate.  The  difference  between  the  first  and  last  zero 
reading  was  divided  by  the  nximber  of  data  points  taken. 
This  correction  factor  was  then  applied  to  each  data  point. 
This  method  produced  good  correlation  between  different 
data  points  taken  for  the  same  load. 

r 

B.  DATA  COLLECTION 

Test  runs  were  conducted  to  evaluate  the  data 
acquisition  program.  The  vibrations  of  the  model  in  the 
wind  tunnel  resulted  in  erratic  fluctuations  in  the  sense 
indicators  of  the  amplifiers.  To  correct  for  this  problem, 
the  acquisition  program  was  modified  to  collect  one  hundred 
samples  at  a  rate  of  five  hundred  samples  per  second.  The 
average  of  these  one  hundred  samples  was  taken  as  one  data 
point.  This  method  produced  constant  readings  for  data 
points  of  similar  conditions. 


C.  DATA  REDUCTION  AND  ANALSYIS 

The  data  reduction  program  was  used  to  convert  the  raw 
test  data.  The  interaction  equations  diverged  instead  of 
converging  to  a  single  value.  This  pointed  out  a  problem 
with  the  interaction  coefficients.  Examination  of  the 
calibration  tables  revealed  extremely  large  interactions 
between  the  loading  of  the • lift  component  and  reaction  in 
the  roll  moment  component.  There  was  also  noted  a  large 
interaction  between  the  loading  of  the  pitch  moment 
component  and  reaction  in  the  lift  component. 

The  reduction  program  was  modified  to  correct  for  the 
interactions  between  the  lift  and  drag  components  only.  The 
reduction  program  was  again  executed  using  the  recorded 
test  data.  This  time  the  interactions  converged.  This 
proved  the  validity  of  the  interaction  equations  and 
confirmed  the  problems  with  the  balance  calibration. 

A  test  file  was  created  to  display  the  plotting 
capabilities  of  the  interactive  programs.  Figure  4.1  shows 
the  results. 
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A.  CONCLUSIONS 


The  data  acquisition  system  and  programs  developed  were 
adequate  for  recording  the  forces  and  moments  experienced 
in  the  wind  tunnel.  The  extremely  large  interactions 
between  the  lift  and  roll  moment  components  and  between  the 
pitch  moment  and  lift  components  (see  Tables  B.2  -  B.13) 
precluded  any  analysis  of  wind  tunnel  data.  However,  the 
data  acquisition  system  and  balance  calibration  program 
warrant  further  research  and  development  of  the  balance 
system . 

The  interactive  programs  greatly  reduced  the  workload 
required  in  the  data  acquisition  and  analysis  phases.  They 
provided  a  quick  and  easy  means  for  the  analysis  of  the 
recorded  data . 

B.  RECOMMENDATIONS 

The  following  are  given  as  recommendations  to  improve 
the  calibration  of  the  internal  balance  system. 

1.  Balance  Modification 

The  location  of  the  roll  moment  strain  gage  was 
decided  to  be  the  cause  of  the  large  interaction  between 
the  lift  and  roll  moment  component.  This  gage  was  located 
on  the  back  end  of  the  sting  support  system.  The  roll 


monent  component  was  calibrated  by  applying  a  torque  to  the 
center  section  of  the  model  that  was  mounted  to  the 
inteimal  balance.  When  the  lift  component  was  loaded,  a 
large  bending  moment  was  felt  by  the  roll  moment  gage  and 
thus  producing  the  large  interactions. 

By  placing  the  roll  moment  strain  gage  at  a 
forty-five  degree  angle  on  the  same  cut-out  section  as  the 
pitch  moment  gage,  the  torque  applied  to  the  center  section 
can  be  used  for  calibration.  Also,  the  loading  of  the  lift 
component  will  not  greatly  affect  the  reaction  of  the  roll 
moment  component. 

2.  calibration  Rio  Modification 

By  using  the  center  section  of  the  model  to  mount 
the  calibration  pans  for  the  pitch  moment  component,  the 
strains  were  incorrectly  transmitted  to  the  lift  component. 


A  separate  calibration  set-up  will  have  to  be  designed  that 
isolates  the  force  appplied  to  the  pitch  moment  component 
from  the  rest  of  the  balance. 


10  REM - MAIN. BAS  (MAIN  CONTROL  PROGRAM) 

20  '  PATRICK  A.  WITT 

30  •  20  JULY  1985 

40  I - 


50  REM 

280  KEY  OFF 

290  SCREEN  1 

300  COLOR  1 

310  FOR  I  »  1  TO  2 

320  IF  I  =  1  THEN  FILL  *  11  ELSE  FILL  «  12 

330  IF  I  =  1  THEN  EDGE  »  9  ELSE  EDGE  «  10 

340  IF  I  =  1  THEN  Xl=106;  X2»0:  X3=56  ELSE  Xl=108:  X2=2 : 

X3=58 

350  IF  I  =  1  THEN  Yl=48;  Y2=94:  Y3=140  ELSE  Yl=46:  Y2=92 
Y3=138 
360  '  "H” 

370  DRAW  ''C=EDGE;BM=X1;  ,=Y1;U30R4D12R12U12R4D30L4U12'' 

380  DRAW  '•L12D12L4BE1P=FILL;,=EDGE?'' 

390  '  "E” 

400  Xl=  XI  +  26 

410  DRAW  ''C=EDGE;BM=X1;  ,=Y1;U30R20D4L16D9R8D4L8D9R16D4L2 
0BE1P=FILL;  ,  =EDGE ;  '• 

420  '  ''L” 

430  Xl=  XI  +  26 

440  DRAW  ''C=EDGE;BM=X1;  ,=Y1;U30R4D26R16D4L20BE1P=FILL;  , 
-EDGE ;  •' 

450  '  "O'* 

460  Xl=  XI  +  26 

470  DRAW  ”C»EDGE;BM»X1; ,-Yl;U30R20D30L20BR4BU4U22R12D22L 
12fiGlP=FILL; , -EDGE ; « 

480  'NEXT  LINE 
490  '  "C 

500  DRAW  "C=EDGE;BM=X2;,=Y2;U30R20D4L16D22R16D4L20BE1P= 
FILL; , -EDGE;" 

510  '  "O" 

520  X2-  X2  +  26 

530  DRAW  "C=EDGE;BM-X2 ; ,=Y2 ;U30R20D30L20BR4BU4U22R12D22L 
12BG1P-FILL; , -EDGE ; " 

540  '  "N" 

550  X2-  X2  +  26 

560  DRAW  "C»EDGE;BM«X2;,=Y2;U30R4F12U12R4D30L4H12D12L4BE 
IP-FILL; ,=EDGE;" 

570  '  "F" 

580  X2-  X2  +  26 

590  DRAW  "C-EDGE;BM-X2; ,=Y2;U30R20D4L16D6R8D4L8D16L4BE1P= 
FILL; ,-EDGE;" 

600  '  "I" 

610  X2-  X2  +  26 

620  DRAW  "C=EDGE;BM-X2;,»Y2;U30R4D30L4BE1P=FILL;,=EDGE;" 
630  '  "G" 
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640  X2-  X2  +  14 

650  DRAW  "C«ED6E;BM-X2;,-Y2;U30R20D4L16D22R12U4L4U4R8" 
660  DRAW  •'D12L20BE1P»FILL;,*EDGE;'' 

670  •  "U” 

680  X2-  X2  +  26 

690  DRAW  '•C=EDGE;BM*X2;,=Y2;U30R4D26R12U26R4D30L20BE1P- 
FILL;, -EDGE;'' 

700  '  "R" 

710  X2-  X2  +  26 

720  DRAW  "C-EDGE;BM-X2;,-Y2;U30R20D15L12F15L4H15D15L4BU1 
9BR4U7" 

730  DRAW  "R12D7L12BL1P»FILL;,»EDGE;" 

740  '  "A" 

750  X2-  X2  +  30 

760  DRAW  "C-EDGE;BM=X2; ,=Y2;U30R20D30L4U15L12D15L4BU19BR 
4U7" 

770  DRAW  "R12D7L12BL1P=FILL;,=EDGE;" 

780  '  "T" 

790  X2-  X2  +  26 

800  DRAW  "C=EDGE;BM=X2;,=Y2;BU26U4R20D4L8D26L4U26L8BE1P= 
FILL; , -EDGE;" 

810  '  "I" 

820  X2-  X2  +  26 

830  DRAW  "C-EDGE ; BM-X2 ; , -Y2 ;U30R4D30L4BE1P=FILL; , -EDGE ; " 
840  '  "0" 

850  X2-  X2  +  14 

860  DRAW  "C-EDGE;BM=X2; ,=Y2;U30R20D30L20BR4BU4U22R12D22L 
12BG1P-FILL; , -EDGE; " 

870  »  «N" 

880  X2-  X2  +  26 

890  DRAW  "C-EDGE ;BM=X2;,=Y2;U30R4F12U12R4D30L4H12D12L4BE 
IP-FILL; ,-EDGE;" 

900  'NEW  LINE 
910  •  "A" 

920  DRAW  "C-EDGE;BM»X3; ,=Y3;U30R20D30L4U15L12D15L4BU19BR 
4U7" 

930  DRAW  "R12 D7L12 BLIP-FILL ;, -EDGE;" 

940  '  "N" 

950  X3-  X3  +  26 

960  DRAW  "C-EDGE;BM-X3;,-Y3;U30R4F12U12R4D30L4H12D12L4BE 
IP-FILL; ,-EDGE;" 

970  '  "A" 

980  X3-  X3  +  26 

990  DRAW  "C-EDGE ;BM-X3;,-Y3;U30R20D30L4U15L12D15L4BU19BR 
4U7" 

1000  DRAW  "R12D7L12BL1P-FILL; ,-EDGE;" 

1010  '  "L" 

1020  X3-  X3  +  26 

1030  DRAW  "C-EDGE ;BM-X3;,-Y3 ;U30R4D26R16D4L20BE1P-FILL;,- 
EDGE ; " 
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1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 
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1180 

1190 

1200 

1210 

1220 
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1300 


1310 


1320 


1330 

1340 


1350 


1360 


1370 


1380 


1390 


1400 


1410 


I  HYI 

X3-  X3  +  26 

DRAW  "C-EDGE ; BM-X3 ; , -Y3 ;BU30BL1R5F9R4E9R5G14D16L4" 
DRAW  "U16H14BR2BD1P-FILL;  ,  -EDGE ;  '• 

I  IISH 

X3-  X3  +  40 

DRAW  ''C-EDGE;BM-X3  ;  ,=Y3  ;BU1U2E2R16H19U4E2R20F2D2G2'' 
DRAW  ''L16F19D4G2L20H2BR2BU1P-FILL;  ,  -EDGE ; '' 

I  M  JM 

X3-  X3  +  32 

DRAW  ••C»EDGE;BM=X3;  ,-Y3;U30R4D30L4BElP=FILL;  ,=EDGE;»' 

I  11311 

X3-  X3  +  14 

DRAW  "C-EDGE  ;BM=X3  ;  ,=Y3  ;BU1U2E2R16H19U4E2R20F2D2G2'' 
DRAW  '•L16F19D4G2L20H2BR2BU1P-FILL;  ,-EDGE;'' 

NEXT  I 
LOCATE  22,4 

INPUT  "WOULD  YOU  LIKE  INSTRUCTIONS  (Y/N)";Z$ 

IF  Z$  -  "Y"  OR  Z$  -  "y"  THEN  GOTO  1240 

GOTO  2000 

SCREEN  0 

WIDTH  80 

COLOR  15,1 

CLS 

PRINT 

PRINT  TAB (15) "THIS  IS  A  MENU  DRIVEN  PROGRAM  THAT 
WILL  ALLOW  YOU  TO" 

PRINT  TAB (10) "EVALUATE  DIFFERENT  HELICOPTER  CONFIGU 
RATIONS  AND  DETERMINE" 

PRINT  TAB (10) "THEIR  LIFT  AND  DRAG  COEFFICIENTS  AND 
THEIR  EQUIVALENT  FLAT" 

PRINT  TAB (10) "PLATE  AREA.  THE  DATA  GENERATED  DURING 
THE  TUNNEL  RUNS  WILL" 

PRINT  TAB (10) "BE  USED  WITH  THIS  PROGRAM." 

PRINT  TABUS)  "THE  FIRST  OPTION  IS  USED  TO  RECORD 
THE  DATA  DURING" 

PRINT  TAB (10) "THE  TUNNEL  RUNS.  THE  SECOND  OPTION 
CONVERTS  THE  RECORDED" 

PRINT  TAB (10) "RAW  COUNTS  TO  FORCES  AND  MOMENTS.  YOU 
WILL  HAVE  THE  CHANCE" 

PRINT  TAB (10) "TO  PROVIDE  NAMES  FOR  EACH  OF  THESE 
FILES  AS  YOU  GO  ALONG." 

PRINT  TAB (10) "THE  THIRD  OPTION  LETS  YOU  EXAMINE  THE 
FORCES  RECORDED.  IT" 

PRINT  TAB (10) "WILL  BE  OF  NO  USE  TO  YOU  TO  EXAMINE  THE 
RAW  COUNTS." 

PRINT  TAB (15) "THE  FOURTH  OPTION  USES  THE  CONVERTED 
DATA  TO  COMPUTE" 

PRINT  TAB (10) "THE  DESIRED  PARAMETERS.  THE  DATA 
MUST  BE  CONVERTED  USING" 
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1420  PRINT  TAB (10) "OPTION  TWO  BEFORE  THE  PARAMETERS  CAN  BE 
CALCULATED.  YOU  WILL" 

1430  PRINT  TAB (10) "THEN  PROVIDE  A  NAME  FOR  THE  FILES  THAT 
STORE  THE  CALCULATED" 

1440  PRINT  TAB (10) "PARAMETERS.  USING  THESE  FILE  NAMES, 
THE  FIFTH  OPTION  LETS" 

1450  PRINT  TAB (10) "YOU  EXAMINE  THE  DATA  THAT  CAN  BE 
PLOTTED." 

1455  PRINT; INPUT  "PRESS  RETURN  TO  CONTINUE" ;N 

1456  CLS 

1460  PRINT  TAB (15) "OPTION  SIX  MUST  BE  USED  TO  SORT  THE 
X  VALUES  BEFORE" 

1470  PRINT  TAB (10) "THEY  CAN  BE  PLOTTED.  THE  SEVENTH  OPTION 
LETS  YOU  ADD  A  GRID" 

1480  PRINT  TAB (10) "TO  THE  PLOT  AND  ALSO  MARK  THE  DATA 
POINTS.  THE  PLOTTING  IS" 

1490  PRINT  TAB(10)"IS  EXECUTED  WITH  THE  EIGHTH  OPTION. 
YOU  CAN  PLOT  UP  TO" 

1500  PRINT  TAB (10) "THREE  CURVES  PER  PLOT  AND  RECEIVE  A 
HARD  COPY  BY  PRESSING" 

1510  PRINT  TAB (10) "THE  CTRL-PRTSC  BUTTONS.  THE  FINAL 
OPTION  TERMINATES  THIS" 

1520  PRINT  TAB (10) "PROGRAM." 

1530  PRINT:  INPUT  "PRESS  RETURN  TO  CONTINUE" ;N 

2000  — — ——-.-plotter  set-up-— - 

2010  SCREEN  0:  WIDTH  80;  COLOR  14,0,7;  CLS:  LOCATE  10,1 
2020  PRINT  "WHICH  DISK  DRIVE  DO  YOU  WANT  TO  STORE  YOUR 
DATA  FILES  ON"; 

2030  PRINT 

2040  PRINT  "DRIVE  A  IS  EITHER  ON  YOUR  LEFT  OR  ON  TOP" 

2050  PRINT  "DRIVE  B  IS  EITHER  ON  YOUR  RIGHT  OR  ON  THE 
BOTTOM" 

2070  PRINT 

2080  INPUT  "ENTER  [  A  OR  B  ]";FD$;  FD$=FD$+":"  :  PD$="C:" 
2090  GRD$="NO  GRID":  MRK$="MARK  " 

2100  OPT$="CURVE" 

2110  GOSUB  2230 
2120  GOSUB  2400 

2130  X%=5+DX%;  Y%=12 :  LOCATE  X%,Y%,1,0,7 

2140  FIRST%=5;  LAST%==13 

2150  ANS$=INKEY$;  IF  ANS$=""  THEN  2150 

2160  IF  ANS$=CHR$(0)+CHR$(80)  THEN  IF  X%<LAST%  THEN  X%= 

X%+1  ELSE  X%=FIRST% 

2170  IF  ANS$*CHR$(0)+CHR$(72)  THEN  IF  X%>FIRST%  THEN  X%= 
X%-1  ELSE  X%=»LAST% 

2180  LOCATE  X%,Y%;  IF  ANS$<>CHR$ ( 13 )  THEN  2150 
2190  FLAG1%=CSRLIN:  FLAGl%*FLAGl%-4 

2200  ON  FLAG1%  GOSUB  3120, 2740, 2630, 2800, 2680, 3170, 2870, 
3550,3680 

2210  IF  FLAG1%<>1  THEN  GOTO  2120  ELSE  GOTO  2130 
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2220  ' - INITIALIZING  CONSTANTS - 

2230  DIM  X(300) ,B(300) ,C(300) ,D(300) ,Y(300) 

2240  DIM  FILESTK$(10) 

2250  OUT  985,6 
2260  SX%-5:  SY%-55 

2270  M$»"COMMAND  . 

2280  BLANK$«»  •• 

2290  B$-"  " 

2300  SCREEN  0,1:  CLS 
2310  HDPOS%»48 

2320  KEY(l)  ON:  ON  KEY  (1)  GOSUB  2350 
2330  RETURN 

2340  • - CHANGE  FOREGROUND  COLORS - 

2350  FG%*FG%+1 

2360  IF  FG%>15  THEN  FG%»1 

2370  OUT  985, FG% 

2380  RETURN 

2390  • - PRINT  MAIN  OPTION  MENU - 

2400  SCREEN  0,1:  COLOR  14,0,7:  CLS:  LOCATE  3,1 

2410  PRINT  TAB(5)  ”********  MAIN  OPTIONS  MENU 

********11 

2420  PRINT 

2430  PRINT  TAB (5)  '•*  RECORD  TUNNNEL  DATA 

2440  PRINT  TAB (5)  ”*  REDUCE  RAW  TUNNEL  DATA 

■  ~ 

2450  PRINT  TAB (5)  '•*  EXAMINE  DATA  FILE  FOR  TUNNEL 

DATA  *'• 

2460  PRINT  TAB(5)  »*  _  CALCULATE  Cd,  Cl,  AND  E.F.P.A 

2470  PRINT  TAB (5)  '•*  EXAMINE  DATA  FILE  FOR  PLOTTI 

NG  *” 

2480  PRINT  TAB (5)  ”*  SORT  X  VALUES 

2490  PRINT  TAB (5)  "*  PI^TTING  OPTION  MENU 

2500  PRINT  TAB (5)  "*  DO  PLOTTING 

2510  PRINT  TAB(5)  '•*  EXIT 

*«  ~ 

2520  PRINT 

2530  PRINT  TAB(5)  "************************************** 


********" 

2540  LOCATE  3,65,1:  PRINT  ’’STATUS” 

2550  LOCATE  4,55  :  PRINT  ” - - 

2560  LOCATE  SX%,SY%  ;  PRINT  ’’DATA  FILE  DRIVE  =  ”+FD$ 
2570  LOCATE  SX%+2,SY%  :  PRINT  ’’USER  OPTIONS 
2580  LOCATE  SX%+3,SY%  ;  PRINT  OPT$ 

2590  LOCATE  SX%+4,SY%  :  PRINT  GRD$ 

2600  LOCATE  SX%+5,SY%  ;  PRINT  MRK$ 
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2610  RETURN 

2620  • - DATA  EDITOR  FOR  TUNNEL  DATA - 

2630  CHAINFILE$  -  PD$+''ADATA.BAS*' 

2640  DX%-2 

2650  COMMON  FD$,PD$,DX% 

2660  CHAIN  CHAINFIliE$ 

2670  RETURN 

2680  • - DATA  EDITOR  FOR  PLOTTING  DATA - 

2690  CHAINFILE$  «  PD$+”BDATA.BAS« 

2700  DX%«5 

2710  COMMON  FD$,PD$,DX% 

2720  CHAIN  CHAINFILE$ 

2730  RETURN 

2740  • - DATA  REDUCTION - 

2750  CHAINFILE$  -  PD$+"RED.BAS'' 

2760  DX%-3 

2770  COMMON  PD$,FD$,DX% 

2780  CHAIN  CHAINFILE$ 

2790  RETURN 

2800  • - CALCULATE  ROUTINE - 

2810  CHAINFILE$  -  PD$  +  "COMP. BAS" 

2820  DX%»4 

2830  COMMON  PD$,FO$,DX% 

2840  CHAIN  CHAINFILE$ 

2850  REUTRN 

2860  ' - PLOTTING  OPTION  MENU - 

2870  CLS;  SCREEN  0,1:  LOCATE  6,1 

2880  PRINT  TAB (20)  ••*★****  PLOTTING  OPTION  MENU  *** 

***•• 

2890  PRINT 


2900 

PRINT 

TAB(20) 

w* 

GRID 

& 

MARK 

*« 

• 

2910 

PRINT 

A** 

TAB (2 00 

«* 

GRID 

& 

NO 

MARK 

2920 

PRINT 

TAB(20) 

H* 

NO  GRID 

& 

MARK 

2930 

PRINT 

TAB(20) 

«* 

NO  GRID 

& 

NO 

MARK 

2940 

PRINT 

TAB(20) 

M* 

EXIT 

2950  PRINT 

2960  PRINT  TAB(20)  '•************************************* 
***•• 

2970  X%-8;  Y%-27:  LOCATE  X%,Y%,1,0,7 

2980  FIRST%-8;  LAST%»12 

2990  ANS$»INKEY$:  IF  ANS$=""  THEN  2990 

3000  IF  ANS$-CHR$(0)+CHR$(80)  THEN  IF  X%<LAST%  THEN  X%= 
X%+1  ELSE  X%-FIRST% 

3010  IF  ANS$»CHR$(0)+CHR$(72)  THEN  IF  X%>FIRST%  THEN  X%= 
X%+1  ELSE  X%«LAST% 


Figure  A. 9  MAIN. BAS  (cont.) 


3020  LOCATE  X%,Y%:  IF  ANS$<>CHR$ (13)  THEN  2990 

3030  FLAG%»CSRLIN:  FLAG%-FLAG%-7 

3040  ON  FLAG%  GOSUB  3070,3080,3090,3100,3110 

3050  DX%-7 

3060  RETURN 

3070  GRD$«"GRID  MRK$-''MARK  ”  :  RETURN 

3080  GRD$-''GRID  ” :  MRK$»"NO  MARK”  :  RETURN 
3090  GRD$«”NO  GRID”:  MRK$a”MARK  ”  :  RETURN 
3100  GRD$»”NO  GRID”:  MRK$»”NO  MARK”  :  RETURN 
3110  RETURN 

3120  ' - RECORD  TUNNEL  DATA - 

3130  CHAINFILE$  »  PD$  +  "RUNS. BAS” 

3140  DX%-1 

3145  COMMON  PD$,FD$,DX% 

3150  CHAIN  CHAINFILE$ 

3155  RETURN 

3160  ' - SORTING - 

3170  CLS:  INPUT  "ENTER  NAME  OF  FILE  TO  BE  SORTED” ;FILE$: 
FILE$-FD$+FILE$ 

3180  PRINT  "READING  FILE  ”+FILE$+” . . . ” :  BEEP 
3190  GOSUB  3370 
3200  PRINT  "SORTING” 

3210  L%-2:  K%=N0D%-1:  R%=NOD% 

3220  WHILE  (L%<-R%) 

3230  FOR  J%-R%  TO  L%  STEP  -1 

3240  IF  (X(J%-1)>X(J%) )  THEN  SWAP  X(J%) ,X(J%-1) :  SWAP 

Y(J%) ,Y(J%-1) :  K%-J% 

3250  NEXT 

3260  L%«K%-1 

3270  FOR  J%  -  L%  TO  R% 

3280  IF  (X(J%-1)>X(J%) )  THEN  SWAP  X(J%) ,X(J%-1) :  SWAP 

Y(J%) ,Y(J%-1) :  K%=J%  • 

3290  NEXT 

3300  R%-K%+1 

3310  WEND 
3320  CLS: BEEP 

3330  PRINT  "SORTED  FILE  ";FILE$;”  BEING  SAVED  GOSUB 

3460 

3340  DX%>-6 
3350  RETURN 

3360  ' - READING  A  FILE - 

3370  OPEN  FILE$  FOR  INPUT  AS  #2 

3380  INPUT  #2,NOD%,Yl$,Xl$,CONFIG$,CONF 

3390  INPUT  #2,Q 

3400  FOR  J  ■  1  TO  NOD% 

3410  INPUT  #2,Y(J),X(J) 

3420  NEXT 

3430  CLOSE  #2 
3440  RETURN 

3450  ' - SAVE  A  FILE - 
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OPEN  FILES  FOR  OUTPUT  AS  #1 
WRITE  # 1 , NOD% , Yl$ , Xl$ , CONFIGS , CONF 
WRITE  #1,Q 

FOR  J  -  1  TO  NOD% 

WRITE  #1,Y(J),X(J) 

NEXT 
CLOSE  «1 
RETURN 

’ - INITIALIZING  PLOTTER - 

CLS:  INPUT  “NUMBER  OF  DATA  FILE(S)  TO  BE  PLOTTED  ON 
THE  SAME  PLOT  «";NOF% 

PRINT  "ENTER  FILE  NAME  (S)  :":BEEP 
FOR  1%  ■  1  TO  NOF% 

PRINT  "FILE  #";: PRINT  USING  "##";!%;  ;  INPUT  " 
FILES 

FILES  -  FDS  +  FILES 
FILESTKS(I%)  -  FILES 

PRINT  "HOW  DO  YOU  WANT  THIS  CURVE  PLOTTED  ?  ENTER 
(POINT)  TO  JUST  PLOT" 

INPUT  "THE  POINTS  OR  (CURVE)  TO  PRODUCE  A  CURVE 

FIT"; OPTS 

CURVES (1%)  =  OPTS 

NEXT 

PFILES  -  PD$+ "MAIN. BAS":  FILE2$»  PD$  +  " PLOTTER . BAS " 
SL%  »  100 

CHAIN  FILE2S,30,ALL 

DX%=8 

RETURN 

CLS: 

LOCATE  10,5:  PRINT  "PROGRAM  TERMINATED,  REMOVE  DATA 
FILES  FROM  DISK  DRIVE" 

LOCATE  11,5:  PRINT  "AND  SECURE  COPMUTER  AND  AMPLIFIE 
S" 

END 

Figure  A. 9  MAIN. BAS  (cont.) 
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NAME:  Data  Acquisition  And  control  (DAAC) 
HEADER  for  BASICA 


FILE  NAME:  DACHDR.BAS 

DOS  DEVICE  NAME:  DAAC 

RESERVED  FUNCTION  NAMES: 

AINM,  AINS,  AINSC,  AOUM,  AOUS, 

BINM,  BINS,  BITINS,  BITOUS,  BOUM,  BOUS, 
CINM,  CINS,  CSET,  DELAY 
RESERVED  DEF  SEG  VALUE  NAME:  DSEG 

NAMES  DEFINED  AND  USED  BY  HEADER: 

ADAPT%,  AI,  COUNT,  FOUND%, 

HNAME$,  SG%,  STAT% 


When  using  the  BASICA  Interpreter,  this  header 
must  be  executed  before  any  function  calls  are 
made  that  access  the  DAAC  adapter.  It  Initializes 
a  number  of  variables  for  each  function  call.  These 
variables  are  reserved  and  should  not  be  used  except 
to  access  the  DAAC  adapter.  This  routine  also  does  a 
DEF  SEG  to  the  segment  where  the  DAAC  Device  Driver 
(DAC.COM)  Is  loaded.  If  you  execute  a  DEF  SEG  to 
access  other  hardware,  you  must  DEF  SEG  to  the  segment 
of  the  DAAC  Device  Driver  before  any  subsequent 
calls  to  access  the  DAAC  adapter. 


F0UND%  -  0 
SG%  »  &H2E 

'Start  searching  the  interrupt  vectors  until  you  find 
'one  that  points  to  the  DAAC  device  driver. 

'Do  a  DEF  SEG  to  that  segment. 

WHILE  ((SG%  <-  &H3E)  AND  (FOUND%  =  0)) 

DEF  SEG  «  0 

DSEG  -  PEEK(SG%)  +  PEEK(SG%  +  1)  *  256 

DEF  SEG  -  DSEG 

HNAME$-"" 

FOR  AI-10  TO  17 
HNAME$ 

NEXT  AI 

IF  HNAME$  -  "DAAC 
0  THEN  FOUND%  -  1 
SG%  >  SG%  +  4 


HNAME  $  +  CHR$ ( PEEK ( AI ) ) 

"  AND  PEEK (18)  +  PEEK (19)  <> 


WEND 

IF  FOUND%  » 
NOT  FOUND" 


0  THEN  PRINT  "ERROR:  DEVICE  DRIVER  DAC.COM 
END 


Figure  A. 10  RUNS. BAS  -  Data  Acquisition  Program 
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490  'Now  initialize  all  function  name  variables  for  calls 
500  'to  access  the  device  driver. 

510  AINM  -  PEEK(iH13)  *  256  +  PEEK(&H12) 

520  AINS  •  PEEK(&H15)  *  256  +  PEEK(&H14) 

530  AINSC  -  PEEK(&H17)  *  256  +  PEEK(&H16) 

540  AOUM  -  PEEK(&H19)  *  256  +  PEEK(&H18) 

550  AOUS  -  PEEK(&H1B)  *  256  +  PEEK(&H1A) 

560  BINM  -  PEEK(&H10)  *  256  +  PEEK(&H1C) 

570  BINS  -  PEEK(&H1F)  *  256  +  PEEK(&H1E) 

580  BITINS  -  PEEK(4H21)  *  256  +  PEEK(&H20) 

590  BITOUS  -  PEEK(S(H23)  *  256  +  PEEK(&H22) 

600  BOUM  X  PEEK(&H25)  *  256  +  PEEK(&H24) 

610  BOUS  »  PEEK(&H27)  *  256  +  PEEK(&H26) 

620  CINM  *  PEEK(iH29)  *  256  +  PEEK(&H28) 

630  GINS  -  PEEK(&H2B)  *  256  -I*  PEEK(&H2A) 

640  CSET  X  PEEK(&H2D)  *  256  +  PEEK(&H2C) 

650  DELAY  x  PEEK(&H2F)  *  256  +  PEEK(&H2E) 

660  'Finally,  execute  any  call  to  re-inltialize  the 
670  'device  driver  from  any  former  invocation  of  BASIC. 
680  ADAPT%  X  0 
690  COUNT  X  1 
700  STAT%  »  0 

710  CALL  DELAY  (ADAPT%,  COUNT,  STAT%) 

720  ' 

730  'End  of  DAAC  BASICA  Header 
740  ' 

750  REM—  RUNS. BAS;  PROGRAM  TO  RECORD  THE  DATA  FROM 
WIND 

760  REM—  TUNNEL  RUNS 

770  KEY  OFF:  COLOR  15,1,4:  CLS 

780  CLS 

790  PRINT:  PRINT 

800  PRINT  TAB (10)  "HELO  CONFIGURATIONS" 

810  PRINT:  PRINT 

820  PRINT  TAB (5)  "1.  ATTACK  NOSE,  STRAIGHT  TAIL" 

830  PRINT  TAB (5)  "2.  ATTACK  NOSE,  LOW  TAIL" 

840  PRINT  TAB (5)  "3.  ATTACK  NOSE,  HIGH  TAIL" 

850  PRINT  TAB (5)  "4.  SMOOTH  NOSE,  STRAIGHT  TAIL" 

860  PRINT  TAB (5)  "5.  SMOOTH  NOSE,  LOW  TAIL" 

870  PRINT  TAB (5)  "6.  SMOOTH  NOSE,  HIGH  TAIL" 

880  PRINT  TAB(5)  "7.  BLUNT  NOSE,  STRAIGHT  TAIL" 

890  PRINT  TAB(5)  "8.  BLUNT  NOSE,  LOW  TAIL" 

900  PRINT  TAB(5)  "9.  BLUNT  NOSE,  HIGH  TAIL" 

910  PRINT:  PRINT 

920  INPUT  "WHICH  CONFIGURATION  IS  BEING  RUN";N 
930  PRINT 

940  INPUT  "DOES  CONFIGURATION  INCLUDE  LANDING  GEAR";Z$ 
950  ON  N  GOSUB  4550,4620,4690,4750,4820,4870,4920,4990 
5040 

955  • -  WEIGHTS  ARE  IN  POUNDS - 

Figure  A. 10  RUNS. BAS  (cent.) 
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1140  CLS 

1150  REM - RECORD  TUNNEL  DATA - 

1160  DIM  L(IOO) ,D(100) ,Y(100) ,PM(100) ,YM(100) ,RM(100) ,A0A( 
100) 

1170  DIM  DAT(399) ,DAT%(399) ,DAT1(399) ,DAT1%(399) 

1180  COLOR  15,1;  KEY  OFF:  CLS 

1190  PRINT  "RECORDING  OF  WIND  TUNNEL  RAW  DATA" 

1200  INPUT  "WHAT  IS  THE  TUNNEL  SPEED  (Q)  FOR  THIS  RUN";Q 
1210  PRINT 

2670  PRINT  "WITHOUT  THE  MODEL  IN  PLACE,  ADJUST  THE  ZERO 
SET  SCREWS  TO  ZERO" 

2671  PRINT  "OUT  EACH  AMPLIFIER.  AFTER  ALL  AMPLIFIERS  ARE 
ZEROED,  LOAD  THE" 

2672  PRINT  "MODEL  ONTO  THE  STING.  WHEN  THE  MODEL  IS 
MOUNTED,  PRESS  RETURN" 

2673  INPUT  "TO  RECORD  A  NO  FORCE  ZERO  READING" ;N 

2690  PRINT; PRINT  "  ZD  ZL  ZY  ZPM  ZYM 

ZRM  ZAOA" 

2700  STAT%“0:  MODE%»0;  STOR%=0;  COUNT-100;  RATE»500 
2710  ADAPT%»  0;  DEVICE%-  9;  CHANLO%-  0;  CTRL%»  0;  CHANHI%=3 
2720  CALL  AINSC (ADAPT% , DEVICE% , CHANLO% , CHANHI% , CTRL% , MODE% 

, STOR% , COUNT , RATE , DAT% ( 0 ) , STAT% ) 

2730  ZD  »  0;ZPM-0:ZL»0;ZYM-0 

2740  IF  STAT%<>  0  THEN  PRINT  USING  "EXECUTION  ERROR  ###"; 
STAT% : END 

2750  FOR  J  -  0  TO  396  STEP  4 
2760  DAT(J)-(DAT%(J)/204.8)-10 
2770  ZD  -ZD  +  DAT(J) 

2780  NEXT  J 

2790  ZD  »  ZD/100 

2800  FOR  J  -  1  TO  397  STEP  4 

2810  DAT(J)»(DAT%(J)/204.8)-10 

Figure  A. 10  RUNS. BAS  (cont.) 
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2820  ZL  «  ZL  +  DAT(J} 

2830  NEXT  J 

2840  FOR  J  -  2  TO  398  STEP  4 
2850  DAT(J)-(DAT%(J)/204.8)-10 
2860  ZFM  -  ZPM  +  DAT(J) 

2870  NEXT  J 

2880  FOR  J  -  3  TO  399  STEP  4 
2890  DAT(J)-(DAT%(J)/204.8)-10 
2900  ZYM  -  ZYM  +  DAT(J) 

2910  NEXT  J 

2920  STAT%-0;  MODE%-0;  STOR%«0:  COUNT-100:  RATE»500 
2930  ADAPT%»  1:  DEVICE%-  9:  CHANLO%»  0:  CTRL%-  0;  CHANHI%=2 
2940  CALL  AINSC (AOAPT% , DEVICE%, CHANLO% , CHANHI% , CTRL% ,MODE% 

, STOR% , COUNT , RATE , DAT1% ( 0 ) , STAT% ) 

2950  ZY  -0:ZRM-0:ZAOA«0 

2960  IF  STAT%<>  0  THEN  PRINT  USING  "EXECUTION  ERROR  ###"; 
STAT% : END 

2970  FOR  J  -  0  TO  297  STEP  3 
2980  DATl(J)»(DATl%(J)/204.8)-10 
2990  ZRM  -  ZRM  DATl(J) 

3000  NEXT  J 

3010  ZRM  -  ZRM/100 

3020  FOR  J  »  1  TO  298  STEP  3 

3030  DATl(J)-(DATl%(J)/204.8)-10 

3040  ZY  «  ZY  +  DATl(J) 

3050  NEXT  J 

3051  FOR  J  «  2  TO  299  STEP  3 

3052  DAT1(J)»(DAT1%(J)/204.8)-10 

3053  ZAOA  -  ZAOA  +  DATl(J) 

3054  NEXT  J 

3060  ZL-ZL/lOO : ZPM-ZPM/100 : ZYM-ZYM/100 : ZY=ZY/100 : ZAOA-ZAOA 
/lOO 

3070  LOCATE  11,1:  PRINT  USING  "+#.###" ;ZD:  LOCATE  11,10: 

PRINT  USING  "+#,###" ;ZL 
3080  LOCATE  11,19:  PRINT  USING  "+#.###";ZY 
3090  LOCATE  11,28:  PRINT  USING  "+#.###"; ZPM 
3100  LOCATE  11,37:  PRINT  USING  "+#.###"; ZYM 

3110  LOCATE  11,46:  PRINT  USING  "+#.###"; ZRM 

3111  LOCATE  11,55:  PRINT  USING  "+#.###"; ZAOA 
3120  REM 

3130  PRINT: PRINT 

3140  INPUT  "AFTER  PLACING  ALL  CAL  SWITCHES  TO  +  SETTING  HIT 
RETURN" ;X 
3150  PRINT 

3160  PRINT  "  CALD  CLL  CALY  CALPM  CALYM 

CALRM  CALAOA" 

3170  STAT%«0:  MODE%-0:  STOR%»0:  COUNT-100:  RATE=500 

3180  ADAPT%-  0:  DEVICE%«  9:  CHANLO%-  0:  CTRL%=  0:  CHANHI%=3 

3190  CALL  AINSC(ADAPT%,DEVICE%,CHANLO%,CHANHI%,CTRL%,MODE% 

, STOR% , COUNT , RATE , DAT% ( 0 ) , STAT% ) 

Figure  A. 10  RUNS. BAS  (cont.) 
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3200  CALD»0:CLIi»0:CALYM«0:CALFM»0 

3210  IF  STAT%<>  0,THEN  PRINT  USING  "EXECUTION  ERROR  ###" 
;STAT%:END 

3220  FOR  J  -  0  TO  396  STEP  4 
3230  DAT(J)-(DAT%(J)/204.8)-10 
3240  CALD  -CALO  +  DAT(J) 

3250  NEXT  J 

3260  CALD  -  CALO/100 

3270  FOR  J  -  1  TO  397  STEP  4 

3280  DAT(J)-(DAT%(J)/204.8)-10 

3290  CLL  =  CLL  +  DAT(J) 

3300  NEXT  J 

3310  FOR  J  »  2  TO  398  STEP  4 
3320  DAT(J)=(DAT%(J)/204.8)-10 
3330  CALPM  -  CALPM  +  DAT{J) 

3340  NEXT  J 

3350  FOR  J  -  3  TO  399  STEP  4 
3360  DAT(J)-(DAT%(J)/204.8)-10 
3370  CALYM  -  CALYM  +  DAT(J) 

3380  NEXT  J 

3390  STAT%»0:  MODE%=0:  STOR%»0:  COUNT*100:  RATE“500 
3400  ADAPT%»  1:  DEVICE%-  9:  CHANLO%»  0:  CTRL%=  0:  CHANHI%=2 
3410  CALL  AINSC(ADAPT%,DEVICE%,CHANLO%,CHANHI%,CTRL%>MODE% 

, STOR% , COUNT , RATE , DAT1% ( 0 ) , STAT% ) 

3420  CALY  »0 : CALRM>0 : CALAOA^O 

3430  IF  STAT%<>  0  THEN  PRINT  USING  "EXECUTION  ERROR  ###"; 
STAT%;END 

3440  FOR  J  »  0  TO  297  STEP  3 
3450  DATl(J)«(DATl%(J)/204.8)-10 
3460  CALRM  ^  CALRM  +  DATl(J) 

3470  NEXT  J 

3480  CALRM  =  CALRM/100 
3490  FOR  J  »  1  TO  298  STEP  3 
3500  DATl ( J) = (DAT1% ( J) /204 . 8 ) -10 
3510  CALY  =  CALY  +  DATl(J) 

3520  NEXT  J 

3521  FOR  J  ■  2  TO  299  STEP  3 

3522  DATl(J)-(DATl%(J)/204.8)-10 

3523  CALAOA  -  CALAOA  +  DATl(J) 

3524  NEXT  J 

3530  CLL-CLL/ 100; CALPM-CALPM/ 100: CALYM=CALYM/ 100: CALY-CALY 
/ 1 0  0 ; CALAO A=CALAOA/ 100 
3540  LOCATE  18,1:  PRINT  USING  "+#.###"; CALD 
3550  LOCATE  18,10;  PRINT  USING  "+#.###" ;CLL 
3560  LOCATE  18,19;  PRINT  USING  "+#.###" ;CALY 
3570  LOCATE  18,28:  PRINT  USING  "+#.###" ;CALPM 
3580  LOCATE  18,37;  PRINT  USING  "+#.###" ;CALYM 

3590  LOCATE  18,46:  PRINT  USING  "+#.###" ;CALRM 

3591  LOCATE  18,55:  PRINT  USING  "+#.###" rCALAOA 

3592  INPUT  "PRESS  RETURN  TO  CONTINUE" ;N 
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3593  CLS 

3600  PRINT:  PRINT  "REPLACE  THE  CAL  SWITCHES  TO  THE  CENTER 
POSITION" 

3610  PRINT  "AFTER  YOU  HAVE  GOTTEN  THE  WIND  TUNNEL  UP  TO 
SPEED  AND  ARE  READY" 

3620  PRINT  "TO  RECORD  DATA  PRESS  RETURN.  ONCE  THE  HEADINGS 
ARE  PRINTED  THE" 

3630  PRINT  "P2  KEY  WILL  RECORD  THE  DATA.  THE  FI  KEY  WILL 
SAVE  THE  DATA  AND  " 

3640  PRINT  "RERUN  YOU  TO  THE  MAIN  MENU.  YOU  CAN  TAKE  READ 
INGS  FOR  ANY  ANGLE" 

3650  PRINT  "OF  ATTACK  BETWEEN  +10  AND  -8  DEGREES." 

3651  PRINT 

3652  PRINT  "THIS  PROGRAM  CORRECTS  FOR  DRIFT  IN  THE  BALANCE 
AND  AMPLIFIERS." 

3653  PRINT  "YOUR  FIRST  AND  LAST  DATA  POINTS  SHOULD  BE  TAKEN 
AT  ZERO  ANGLE  OF" 

3654  PRINT  "ATTACK.  ALSO,  DO  NOT  TAKE  MORE  THAN  ONE  DATA 
POINT  FOR  THE  SAME  " 

3655  PRINT  "ANGLE  OF  ATTACK  EXCEPT  FOR  YOUR  FIRST  AND  LAST 
DATA  POINT.  YOU" 

3656  PRINT  "ARE  LIMITED  TO  100  DATA  POINTS.  REMEMBER,  EACH 
RUN  IS  FOR  ONE" 

3657  PRINT  "SPECIFIC  'Q'  SETTING" 

3660  INPUT  "PRESS  RETURN  TO  CONTINUE" ;N 
3670  CLS 

3680  PRINT  "  DRAG  LIFT  YAW  PITCH  YAW 

ROLL  AOA  TUNNEL" 

3690  PRINT  "  MOM.  MOM. 

MOM.  SPEED" 

3700  SOAP  -  0:  N-4 
3710  FOR  K  -  1  TO  100 

3720  ON  KEY(l)  GOSUB  3820  'SET  STOP  FLAG 

3730  ON  KEY (2)  GOSUB  3850  'RECORD  DATA 

3740  KEY(l)  ON;  KEY(2)  ON 

3750  IF  SOAP  -  2  THEN  GOTO  3780 

3760  IF  SOAP  -  1  THEN  GOTO  4370 

3770  GOTO  3720 

3780  SOAP  -  0 

3790  NOD%  »  K 

3800  NEXT  K 

3810  GOTO  4370 

3820  REM  SET  STOP  FLAG 

3830  SOAP  -  1 

3840  RETURN 

3850  REM  STEPS  TO  RECORD  DATA 

3860  STAT%-0;  MODE%»0;  STOR%=0;  COUNT»100;  RATE»500 

3870  ADAPT%=  0;  DEVICE%»  9;  CHANLO%«  0:  CTRL%-  0:  CHANHI%»3 

3880  CALL  AINSC (ADAPT% , DEVICE% , CHANLO% , CHANHI% , CTRL% ,MODE% 

, STOR% , COUNT , RATE , DAT% ( 0 ) , STAT% ) 
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D(K)  -0:L(K)  -0;YM(K)  -0;PM(K)-0 

IF  STAT%<>  0,THEN  PRINT  USING  "EXECUTION  ERROR  ###"; 
STAT%:END 

FOR  J  -  0  TO  396  STEP  4 
DAT ( J) - (DAT% ( J) /2  04 . 8 ) -10 
D(K)  =D(K)  +  DAT(J) 

NEXT  J 

D(K)  -  D(K)/100 

FOR  J  =  1  TO  397  STEP  4 

DAT(J)-(DAT%(J)/204.8)-10 

L(K)  “  L(K)  +  DAT(J) 

NEXT  J 

FOR  J  =  2  TO  398  STEP  4 
DAT ( J) » (DAT% ( J) /204 . 8 ) -10 
PM(K)  -  PM(K)  +  DAT(J) 

NEXT  J 

FOR  J  -  3  TO  399  STEP  4 
DAT(J)-(DAT%{J)/204.8)-10 
YM(K)  -  YM(K)  +  DAT(J) 

NEXT  J 

STAT%»0:  MODE%=»0:  STOR%=0:  COUNT-100:  RATE=500 
ADAPT%«  1;  DEVICE%=>  9;  CHANLO%»  0:  CTRL%=  0:  CHANHI%=2 
CALL  AINSC ( ADAPT% , DEVICE% , CHANLO% , CHANHI% , CTRL% , MODE% 

, STOR% , COUNT , RATE , DAT1% ( 0 ) , STAT% ) 

Y(K)  -0;RM(K)»0;  AOA(K)»0 

IF  STAT%<>  0  THEN  PRINT  USING  "EXECUTION  ERROR  ###"; 
STAT%:END  . 

FOR  J  -  0  TO  297  STEP  3 
DATl ( J) = (DAT1% ( J) /204 . 8) -10 
RM(K)  »  RM(K)  +  DATl(J) 

NEXT  J 

RM(K)  *  RM(K)/100 
FOR  J  »  1  TO  298  STEP  3 
DATl ( J) » (DAT1% ( J) /204 . 8) -10 
Y(K)  =  Y(K)  +  DATl(J) 

NEXT  J 

FOR  J  »  2  TO  299  STEP  3 
DATl ( J) »(DAT1% (J) /204 . 8) -10 
AOA(K)  -  AOA(K)  +  DATl(J) 

NEXT  J 

AOA(K)*AOA(K)/100;L(K)=L(K)/100;PM(K)=PM(K)/100:YM(K) 
-YM(K)/100:Y(K)=Y(K)/100 
B  -  AOA(K)  -  ZAOA 

AOA(K)  *  (5.8469*B)  +  (. 0077583* (B^2) ) 

IF  N>  23  THEN  N=4 : CLS ; PRINT  "  DRAG  LIFT  YAW 

PITCH  YAW  ROLL  AOA  TUNNEL" ; PRINT  " 

MOM.  MOM.  MOM.  SPEED" 

LOCATE  N,l:  PRINT  USING  "+#. ###";D(K) 

LOCATE  N,10;  PRINT  USING  "+#.###" ;L(K) 

LOCATE  N,19;  PRINT  USING  "+#.###" ;Y (K) 
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4300  LOCATE  N,28;  PRINT  USING  ••+#.###"  ;PM(K) 

4310  LOCATE  N,37;  PRINT  USING  ••+#.###"  ;yM(K) 

4320  LOCATE -N,  46:  PRINT  USING  •*+#.###”  ;RM(K) 

4330  LOCATE  N,55:  PRINT  USING  ••+#.###"  ;AOA(K) 

4340  N-N+1 
4350  SOAP  -  2 
4360  RETURN 

4370  SOAP  -  0 

4371  • - CORRECT  FOR  DRIFT - 

4372  DIFFL  «(L(NOD%)-L(l) ) :  DIFFD»(D(NOD%) -D(l) ) :DIFFy=(Y( 
NOD%)-Y(l) ) 

4373  DIFFPM«(PM(NOD%)-PM(l) ) :DIFFYM«(YM(NOD%) -YM(1) ) tDIFFR 
M-(RM(NOD%)-RM(l) ) :DIFFAOA-(AOA(NOD%) -AOA(l) ) 

4374  D-N0D%-1 

4375  CORL-DIFFL/D: CORD-DIFFD/D: CORY-DIFFY/D : CORPM=DIFFPM/D 
: CORYM-DIFFYM/D: CORRM-DIFFRM/D: CORAOA=DIFFAOA/D 

4376  A-1 

4377  FOR  K  -  2  TO  NOD% 

4378  L(K)-L(K)-(A*CORL) 

4379  D(K)-D(K)-(A*CORD) 

4380  Y(K)»Y(K)-(A*CORY) 

4381  PM(K)-PM(K)-(A*CORPM) 

4382  YM(K)-YM(K)-(A*CORYM) 

4383  RM(K)-RM(K)-(A*CORRM) 

4385  A  -  A+1 

4386  NEXT  K 

4387  ' - SAVE  DATA  TO  FILE - 

4390  CLS:  PRINT 

4400  INPUT  "WHAT  IS  THE  NAME  FOR  THE  FILE  TO  STORE  THE  RAW 
DATA” ;FILE$ 

4410  FILE$-FD$+FILE$ 

4420  OPEN  FILE$  FOR  OUTPUT  AS  #1 

4421  WRITE  #l,NOD%,CONFIG$,CONF 
4430  WRITE  #1,Q,W 

4470  WRITE  #1 , ZL, ZD, ZY, ZPM, ZYM, ZRM, ZAOA 

4480  WRITE  #1, CLL, CALD, CALY, CALPM, CALYM, CALRM, CALAOA 

4490  FOR  J-1  TO  NOD% 

4500  WRITE  #1,L(J) ,D(J) ,Y(J) ,PM(J) ,YM(J) ,RM(J) ,AOA(J) 

4510  NEXT  J 

4520  CLOSE  #1 

4521  CLS: PRINT  "DO  YOU  WANT  TO  TAKE  ANOTHER  SET  OF  DATA 
POINTS  FOR  THE  SAME” 

4522  INPUT  "CONFIGURATION  BUT  A  DIFFERENT  'Q'  SETTING  (Y/N 
) ”;ANS$ 

4523  IF  ANS$a”Y”  OR  ANS$="y"  THEN  GOTO  4524  ELSE  GOTO  4530 

4524  PRINT:  INPUT  "WHAT  IS  THE  'Q'  VALUE  FOR  THIS  RUN";Q' 

4525  GOTO  3610 

4530  '-—RETURN  TO  MAIN  PROGRAM 

4531  COMMON  PD$,FD$,DX% 

4532  CHAIN  PD$+ "MAIN. BAS" , 2110 
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REM - SUBROUTINES  FOR  CONFIGURATION  MARKING - 

IF  Z$  -  "Y"  OR  Z$  -  ''y”  THEN  GOTO  4590 
CONF  ■  10 

CONFIG$-''ATTACK  NOSE/STRAIGHT  TAIL  WITHOUT  GEAR” 

GOTO  4610 
CONF  -15 

CINFIG$- "ATTACK  NOSE/STRAIGHT  TAIL  WITH  GEAR" 

RETURN 

IF  Z$  -  "Y"  OR  Z$  »  "y"  THEN  GOTO  4660 
CONF  »  20 

CONFIG$="ATTACK  NOSE/LOW  TAIL  WITHOUT  GEAR" 

GOTO  4680 
CONF  -  25 

CINFIG$="ATTACK  NOSE/LOW  TAIL  WITH  GEAR" 

RETURN 

IF  Z$  -  "Y"  OR  Z$  -  "y"  THEN  GOTO  4730 
CONF  -30 

CONFIG$»"ATTACK  NOSE/HIGH  TAIL  WITHOUT  GEAR" 

GOTO  4740 

CONF  »  35:  CINFIG$= "ATTACK  NOSE/HIGH  TAIL  WITH  GEAR" 
RETURN 

IF  Z$  -  "Y"  OR  Z$  =  "y"  THEN  GOTO  4790 
CONF  -  40 

CONFIG$«"SMOOTH  NOSE/STRAIGHT  TAIL  WITHOUT  GEAR" 

GOTO  4810 
CONF  -  45 

CINFIG$=‘" SMOOTH  NOSE/STRAIGHT  TAIL  WITH  GEAR" 

RETURN 

IF  Z$  -  "Y"  OR  Z$  =»  "y"  THEN  GOTO  4850 
CONF»50:CONFIG$»"SMOOTH  NOSE/LOW  TAIL  WITHOUT  GEAR" 
GOTO  4860 

CONF  =  55:  CINFIG$="SMOOTH  NOSE/LOW  TAIL  WITH  GEAR" 
RETURN 

IF  Z$  *  "Y"  OR  Z$  =  "y"  THEN  GOTO  4900 
CONF=60:CONFIG$="SMOOTH  NOSE/HIGH  TAIL  WITHOUT  GEAR" 
GOTO  4910 

CONF  -  65:  CINFIG$="SMOOTH  NOSE/HIGH  TAIL  WITH  GEAR" 
RETURN 

IF  Z$  =  "Y"  OR  Z$  =  "y"  THEN  GOTO  4960 
CONF  -  70 

CONFIG$="ATTACK  NOSE/STRAIGHT  TAIL  WITHOUT  GEAR" 

GOTO  4980 
CONF  -  75 

CINFIG$» "ATTACK  NOSE/STRAIGHT  TAIL  WITH  GEAR" 

RETURN 

IF  Z$  =  "Y"  OR  Z$  =  "y"  THEN  GOTO  5020 

CONF  =  80:CONFIG$="BLUNT  NOSE/LOW  TAIL  WITHOUT  GEAR" 

GOTO  5030 

CONF  *  85:  CINFIG$="BLUNT  NOSE/LOW  TAIL  WITH  GEAR" 
RETURN 
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IF  Z$  »  "Y''  OR  Z$  »  “y"  THEN  GOTO  5070 
CONF-90:CONFIG$-'' BLUNT  NOSE/HIGH  TAIL  WITHOUT  GEAR” 
GOTO  5080 

CONF  «  95:  CINFIG$»”SMOOT  NOSE/HIGH .TAIL  WITH  GEAR” 
RETURN 
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10  REM - RED. BAS  (CONVERT  RAW  COUNTS  TO  FORCES) - 

20  REM 
30  REM 

40  COLOR  15,1: KEY  OFF:  CLS 

45  DIM  L(IOO) ,L1(100) ,L2(100) ,D(iOO) ,D1(100) ,D2(100) , 

(100) ,Y1(100) ,Y2(100) 

46  DIM  PM(IOO) ,PM1(100) ,PM2(100) ,YM(100) ,YM1(100) ,YM2(10 
0) ,RM(100) ,RM1(100) ,RM2(100) 

47  DIM  IiF(lOO)  ,DF(100)  ,AOA(100) 

50  PRINT: PRINT''WHAT  IS  THE  NAME  OF  THE  FILE  THAT  CONTAINS 
THE  RAW  DATA" 

60  INPUT"THAT  YOU  WISH  TO  CONVERT" ;FILE$ 

70  FILE$-FD$+FILE$ 

80  • - READ  IN  RAW  DATA  FILE - 

90  OPEN  FILE$  FOR  INPUT  AS  #1 
100  INPUT  #l,NOD%,CONFIG$,CONF 

110  INPUT  #1,Q,W 

150  INPUT  #l,ZL,ZD,ZY,ZPM,ZYM,ZRM,ZAOA 

160  INPUT  # 1 , CLL , CALD , CALY , CALPM , CALYM , CALRM , CALAOA 

170  FOR  J  =  1  TO  NOD% 

180  INPUT  #1,L(J) ,D(J) ,Y(J) ,PM(J) ,YM(J) ,RM(J) ,AOA(J) 

190  NEXT  J 

200  CLOSE  #1 

210  PRINT: PRINT" PLEASE  WAIT  WHILE  PERFORMING  CONVERSION" 

211  PRINT  "THE  CONVERSION  WILL  TAKE  APPROXIMATELY  TEN  MIN 
UTES  FOR  " 

212  PRINT  "TWENTY  DATA  POINTS" 

220  ' - READ  IN  CALIBRATION  CONSTANTS— - 

221  OPEN  "C: CONST"  FOR  INPUT  AS  #1 

222  INPUT  # 1 , INCALL , INCALD , INCALY , INCALPM , INCALYM , INCALRM 
240  INPUT  #1,K1LP0S,K2LP0S,K1DP0S,K2DP0S,K1YP0S,K2YP0S 
250  INPUT  #1,K1PMP0S,K2PMP0S,K1YMP0S,K2YMP0S,K1RMP0S, 

K2RMPOS 

260  INPUT  #1,K1LNEG,K2LNEG,K1DNEG,K2DNEG,K1YNEG,K2YNEG 
270  INPUT  #1,K1PMNEG,K2PMNEG,K1YMNEG,K2YMNEG,K1RMNEG, 
K2RMNEG 

280  INPUT  #1,DDDL1P,DDDL2P,DYDL1P,DYDL2P,DPMDL1P,DPMDL2P, 
DYMDLIP, DYMDL2P 
290  INPUT  #1,DRMDL1P,DRMDL2P 

300  INPUT  #1,DLDD1P,DLDD2P,DYDD1P,DYDD2P,DPMDD1P,DPMDD2P, 
DYMDD1P,DYMDD2P 
310  INPUT  #1,DRMDD1P,DRMDD2P 

320  INPUT  #1,DLDY1P,DLDY2P,DDDY1P,DDDY2P,DPMDY1P,DPMDY2P, 
DYMDY1P,DYMDY2P 
330  INPUT  #1,DRMDY1P,DRMDY2P 

340  INPUT  #1,DLDPM1P,DLDPM2P,DDDPM1P,DDDPM2P,DYDPM1P,DYDP 
M2P, DYMDPMIP, DYMDPM2P 
350  INPUT  #1,DRMDPM1P,DRMDPM2P 

360  INPUT  #1,DLDYM1P,DLDYM2P,DDDYM1P,DDDYM2P,DYDYM1P,DYDY 
M2P, DPMDYMIP, DPMDYM2P 
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370  INPUT  #1,DRM0YM1P,DBMDYM2P 

380  INPUT  #1,DL0RH1P,0L0RH2P,DDDRM1P,00DRM2P,DYDRM1P,DYDR 
M2P , DPMDRMIP , OPMDPM2  P 
390  INPUT  #1,DYI1DB111P,DYMDRM2P 

400  INPUT  #1,DDDL1N,DDDI.2N,DYDL1N,DYDL2N,0PMDL1N,DPMDL2N, 
DYMDL1N,DYMDL2N 
410  INPUT  #1,DRM0L1N,DRMDL2N 

420  INPUT  #l,DIiODlN,DLOD2N,DYDDlN,DYDD2N,DPMDDlN,DPMDD2N, 
DYMDD1N,DYMD02N 
430  INPUT  #1,DRM0D1N,DRMDD2N 

440  INPUT  #1,DLDY1N,DLDY2N,DDDY1N,DDDY2N,DPMDY1N,DPMDY2N, 
DYHDYIN, DYMDY2N 
450  INPUT  # 1 , DRMDYIN , DRMDY2N 

460  INPUT  # 1 , DLOPMIN , DLOPM2N , DDDPMIN , DDDPM2N , DYDPHIN , DYDP 

M2N,DYNDPM1N 

470  INPUT  #1,DYMDPM2N,DRMDPM1N,DRMDPM2N 

480  INPUT  #1,DLDYM1N,DLDYM2N,DDDYM1N,DDDYM2N,DYDYM1N,DYDY 
M2N,DPMDYM1N 

490  INPUT  #1,DPM0YM2N,DRMDYM1N,DPMDYM2N 

500  INPUT  #1, DLOPMIN, OLDRH2N, DDDPMIN, DDDRM2N,DYDRM1N,DYDR 

M2N,DPM0PM1N 

510  INPUT  « 1 ,  DPMDPM2N ,  OYMDPMIN ,  DYMDRM2N 
520  CLOSE  #1 

530  • - CONVERT  RAW  COUNTS  TO  FORCES - 

540  FOR  J  -  1  TO  NOD% 

550  A  -  ( (INCALL/ (CLL-ZL))*(L(J)-ZL) ) 

560  B  -  ((INCALD/(CALD~ZD))*{D(J)-ZD)) 

570  C  -  ((INCALY/(CALY-ZY))*(Y(J)-ZY)) 

580  D-( (INCALPM/(CALPM-ZPM) )*(PM(J)-ZPM) ) 

590  E»( (INCALYM/ (CALYM-ZYM) ) * (YM(J) -ZYM) ) 

600  F-( (INCALRM/(CALRM-ZRM) )*(RM(J)-ZRM) ) 

610  IF  A  <-  0  THEN  K1-K1LNEG:K2»K2LNEG  ELSE  K1=K1LP0S 

:K2*K2LPOS 

615  L(J)  -  (K1*A)  +  (K2*A^2) 

620  IF  B  <-  0  THEN  Kl-KIDNEG: K2-K2DNEG  ELSE  K1=K1DP0S 

:K2-K20P0S 

625  D(J)  »  (K1*B)  +  (K2*B^2) 

630  IF  C  <-  0  THEN  Kl-KIYNEG: K2-K2YNEG  ELSE  K1=K1YP0S 

:K2-K2YPOS 

635  Y(J)  »  (K1*C)  +  (K2*C^2) 

640  IF  D  <-  0  THEN  K1-K1PMNEG:K2=K2PMNEG  ELSE  K1=K1 

PMPOS ; K2-K2PMPOS 

645  PM(J)  «  (K1*D)  +  (K2*D^2) 

650  IF  E  <-  0  THEN  K1=K1YMNEG: K2-K2YMNEG  ELSE  K1=K1 

YMPOS ; K2=K2 YMPOS 

655  YM(J)  =  (K1*E)  +  (K2*E^2) 

660  IF  F  <-  0  THEN  K1=K1RMNEG; K2-K2RMNEG  ELSE  K1=K1 

RMPOS:K2»K2RMPOS 

665  RM(J)  -  (K1*F)  +  (K2*F^2) 

670  NEXT  J 
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680  ' - PERFORM  INTERACTON  CORRECTIONS - 

690  FOR  K  =  1  TO  NOD% 

695  • - FIRST  CONSTANT  DETERMINATION - 

700  IF  L(K)  >  0  THEN  GOTO  710  ELSE  GOTO  720 
7 10  DDI-DDDLIP : DD6-DDDL2P : DYI-DYDLIP  t  DY6-DYDL2P  t  DPM1«DP 

MDLIP; DPM6-DPMDL2P: DYMI-DYMDLIP: DYM6-DYMDL2P: DRM1=D 
RMDLIP : DRM6aORMDL2P 
715  GOTO  730 

720  DDI-DDDLIN; DD6-DDDL2N; DYI-DYDLIN; DY6-DYDL2N: DPM1=DP 

MDLIN :  DPM6s»DPMDL2N ;  DYM1=DYMDL1N ;  DYM6=DYMDL2N ;  DRM1=D 
RMDLIN : DRM6-DRMDL2N 

730  IF  D(K)  >  0  THEN  GOTO  740  ELSE  GOTO  750 
740  DL1»DLDD1P; DL6-DLDD2P: DY2=DYDD1P; DY7=DYDD2P: DPM2=DP 

MDDIP ; DPM7-DPMDD2P : DYM2=DYMDD1P; DYM7=DYMDD2P : DRM2=D 
RMDDIP; DRM7«DRMDD2P 
745  GOTO  760 

750  DLI-DLDDIN: DL6=DLDD2N: DY2=DYDD1N: DY7=DYDD2N: DPM2=DP 

MDDIN : DPM7-DPMDD2N : DYM2=DYMDD1N : DYM7=DYMDD2N : DRM2=D 
RMDDIN : DRM7aDRMDD2N 

760  IF  Y(K)  >0  THEN  GOTO  770  ELSE  GOTO  780 
770  DL2 =DLDY IP : DL7=DLDY2  P : DD2 =DDDY1P : DD7 =DDDY2  P : DPM3 =DP 

MDYIP ; DPM8*DPMDY2 P : DYM3 =DYMDY1P : DyM8=DYMDY2 P ; DRM3 =D 
RMDYIP: DRM8-DRMDY2P 
775  GOTO  790 

780  DL2=DLDY1N: DL7=DLDY2N: DD2=DDDY1N: DD7=DDDY2N: DPM3=DP 

MDYIN ; DPM8-DPMDY2N : DYM3-DYMDY1N : DYM8=DYMDY2N : DRM3-D 
RMDYIN : DRM8-DRMDY2N 

790  IF  PM(K)  >  0  THEN  GOTO  800  ELSE  GOTO  810 

800  DL3=DLDPM1P; DL8=DLDPM1P; DD3*DDDPM1P: DD8=DDDPM2P; DY3 

-DYDPMIP :  DY8=«DYDPM2P ;  DYM4=»DYMDPM1P :  DYM9-DYMDPM2  P :  DR 
M4=DRMDPM1P ! DRM9=DRMDPM2P 
805  GOTO  820 

810  DL3=DLDPM1N: DL8=DLDPM1N: DD3»DDDPM1N: DD8=DDDPM2N; DY3 

=DYDPM1N ; DY8=DYDPM2N : DYM4=DYMDPM1N : DYM9*DYMDPM2N : DR 
M4-DRMDPM1N; DRM9=DRMDPM2N 
820  IF  YM(K)  >  0  THEN  GOTO  830  ELSE  GOTO  840 

830  DL4-DLDYM1P ; DL9=DLDYM2P; DD4=DDDYM1P ; DD9=DDDYM2  P : DY4 

-DYDYMIP; DY9-DYDYM2P: DPM4-DPMDYM1P; DPM9*DPMDYM2P: DR 
M5=DRMDYM1P: DRM10=DRMDYM2P 
835  GOTO  850 

840  DL4-DLDYM1N:DL9=DLDYM2N;DD4=DDDYM1N: DD9=DDDYM2N: DY4 

=DYDYM1N : DY9=DYDYM2N : DPM4=DPMDYM1N : DPM9=DPMDYM2N : DR 
M5=DRMDYM1N; DRM10=DRMDYM2N 
850  IF  RM(K)  >0  THEN  GOTO  860  ELSE  GOTO  870 

860  DL5=DLDRM1P: DL10=DLDRM2P: DD5=DDDRM1P: DD10=DDDRM2P: D 

Y5=DYDRM1P; DY10»DYDRM2P; DPM5=DPMDRM1P: DPM10=DPMDRM2 
P; DYM5-DYMDRM1P; DYM10-DYMDRM2P 
865  GOTO  880 

870  DL5-DLDRM1N; DL10=DLDRM2N; DD5-DDDRM1N; DD10*DDDRM2N: D 

Y5=DYDRM1N: DY10=DYDRM2N: DPM5=DPMDRM1N; DPM10=DPMDRM2 
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N :  DYM5-DYMDSN1N :  DYI110-DYMDRM2N 

880  ' - FIRST  INTERACTION  CALCULATION - 

890  L1(K)-L(K)-(DL1*D(K) )-(DL6*(D(K)^2) ) 

900  D1(K)-D(K)-(DD1*L(K) )-(DD6*(D(K)^2) ) 

950  ' - SECOND  CONSTANT  DETERMINATION - 

960  IF  L1(K)  >  0  THEN  GOTO  970  ELSE  GOTO  980 
970  DDI-DDDLIP: DD6-DDDL2P: DYI-DYDLIP: DY6=DYDL2P; DPMl-DP 

MDLIP : DPM6-DPMDL2 P : DYMI-DYMDLIP ; DYM6»DYMDL2 P : DRM1=D 
RMDLIP:  DRM6«DRMDL2P 
975  GOTO  990 

980  DDI-DDDLIN; DD6-DDDL2N: DY1=DYDL1N; DY6-DYDL2N: DPM1»DP 

MDLIN : DPM6=DPMDL2N : DYM1=DYMDL1N : DYM6*DYMDL2N ; DRM1=D 
RHDLIN: DRM6»DRMDL2N 

990  IF  D1(K)  >  0  THEN  GOTO  1000  ELSE  GOTO  1010 

1000  DL1*DLDD1P; DL6=DLDD2P; DY2=DYDD1P: DY7»DYDD2P: DPM2=DP 

MDDIP! DPM7-DPMDD2P: DYM2-DYMDD1P: DYM7-DYMDD2P: DRM2=D 
RMDDIP ; DRM7-DRMDD2  P 
1005  GOTO  1020 

1010  DLI-DLDDIN : DL6-DLDD2N : DY2-DYDD1N : DY7-DYDD2N : DPM2=DP 

MDDIN ; DPM7-DPMDD2N : DYM2=DYMDD1N : DYM7=DYMDD2N ; DRM2=D 
RMDDIN : 0RM7aDRMD02N 

1020  IF  Y1(K)  >  0  THEN  GOTO  1030  ELSE  GOTO  1040 
1030  DL2-DLDY1P: DL7-DLDY2P: DD2=DDDY1P: DD7=DDDY2P: DPM3=DP 

MDYIP ; DPM8-DPMDY2P : DYM3*DYMDY1P ; DYM8-DYMDY2P ; DRM3-D 
RMDYIP: DRM8-DRMDY2P 
1035  GOTO  1050 

1040  DL2-DLDY1N; DL7-DLDY2N: DD2-DDDY1N: DD7-DDDY2N: DPM3*DP 

MDYIN ;  DPM8-DPMDY2N :  DYM3-DYMDY1N,:  DYM8-DYMDY2N ;  DRM3*D 
RMDYIN ; DRM8-DRMDY2N 

1050  IF  PMl(K)  >  0  THEN  GOTO  1060  ELSE  GOTO  1080 
1060  DL3-DLDPM1P : DL8-DLDPM1P : DD3-DDDPM1P : DD8-DDDPM2  P : DY3 

-DYDPMIP: DY8=DYDPM2P: DYM4*DYMDPM1P: DYM9=DYMDPM2P: DR 
M4-DRMDPM1P: DRM9»DRMDPM2P 
1070  GOTO  1090 

1080  DL3 =DLDPM1N : DL8=DLDPM1N ; DD3 =DDDPM1N ; DD8 =DDDPM2  N : DY  3 

»DYDPM1N : DY8=DYDPM2N; DYM4=DYMDPM1N : DYM9=DYMDPM2N ; DR 
M4=DRMDPM1N : DRM9»DRMDPM2N 
1090  IF  YMl(K)  >  0  THEN  GOTO  1100  ELSE  GOTO  1110 
1100  DL4-DLDYM1P ; DL9=DLDYM2  P : DD4=DDDYM1P ; DD9*DDDYM2  P ; DY4 

=DYDYM1P; DY9=DYDYM2P; DPM4®DPMDYM1P: DPM9=DPMDYM2P: DR 
M5=DRMDYM1P; DRM10=DRMDYM2P 
1105  GOTO  1120 

1110  DL4=DLDYM1N: DL9=DLDYM2N; DD4=DDDYM1N: DD9=DDDYM2N: DY4 

=DYDYM1N ; DY9*DYDYM2N; DPM4*DPMDYM1N : DPM9=DPMDYM2N : DR 
M5-DRMDYM1N : DRM10=DRMDYM2N 
1120  IF  RMl(K)  >  0  THEN  GOTO  1130  ELSE  GOTO  1140 

1130  DL5=DLDRM1P: DL10=DLDRM2P: DD5*DDDRM1P: DD10»DDDRM2P: D 

Y5=DYDRM1P: DY10=DYDRM2P; DPM5»DPMDRM1P: DPM10=DPMDRM2 
P ; DYM5*DYMDRM1P : DYMl 0=DYMDRM2 P 
1135  GOTO  1150 
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DL5-DLDRM1N : DL10*DLDRM2N : DD5-DDDRM1N : DD10=DDDRM2N : D 
Y5=DYDRM1N: DY10-DYDRM2N: DPM5-DPMDRM1N; DPM10-DPMDRM2 
N :  DYM5=DYMDRM1N :  DYM10-DYMDRM2N 

I - SECOND  INTERACTION  CALCULATION - 

L2(K)=L(K)-(DL1*D1(K) )-(DL6*(Dl(K)^2) ) 

D2(K) =D(K)-(DD1*L1(K) )-(DD6*(Dl(K)^2) ) 

' — —COMPARE  INTERACTION  CALCULATIONS - 

DFL-ABS (LI (K) -L2 (K) ) : DFD=ABS (D1 (K) -D2 (K) ) 

IF  DFL  <  .0005  AND  DFD  <  .0005  THEN  GOTO  1330 
IF  DFL  >  .0005  THEN  L1(K)=L2(K) 

IF  DFD  >  .0005  THEN  D1(K)=D2(K) 

GOTO  960 

L (K)  =L2  (K)  :  D  (K)  *D2  (K) 

NEXT  K 

I - PERFORM  WEIGHT  TARE  CORRECTIONS - 

' — DRAG  AND  LIFT  NEED  TO  BE  CORRECTED  FOR  AXIS  ORIENT 
ATION— 

FOR  K  -  1  TO  NOD% 

ALPHA  -  AOA(K) *(3.141593/180)  'CONVERT  TO  RADIANS 
DF(K)=(((-l*D(K))-(W*SIN(ALPHA)))*COS (ALPHA))  +  ((( 
-1*L(K) )-(W*COS( ALPHA) )) *SIN (ALPHA) ) 

LF(K)=( ( (-1*L(K) )-(W*COS(ALPHA) ) )*COS (ALPHA) )  -  ((( 
-1*L (K) ) - (W*SIN (ALPHA) ) ) *SIN (ALPHA) ) 

NEXT  K 

— SAVE  REDUCED  DATA  TO  FILE - 

CLS; PRINT  "DATA  REDUCTION  COMPLETE,  SAVING  DATA  TO 
FILE$ 

OPEN  FILE$  FOR  OUTPUT  AS. #2 
WRITE  #2,NOD%,CONFIG$,CONF 
WRITE  #2,Q,W 

WRITE  #2,ZL,ZD,ZY,ZPM,ZYM,ZRM,ZAOA 
WRITE  #  2 , CLL , CALD , CALY , CALPM , CALYM , CALRM , CALAOA 
FOR  J  -  1  TO  NOD% 

WRITE  #2,LF(J) ,DF(J) ,Y(J) ,PM(J) ,YM(J) ,RM(J) ,AOA(J) 
NEXT  J 

' - RETURN  TO  MAIN  PROGRAM - 

COMMON  PD$,FD$,DX% 

CHAIN  PD$+ "MAIN. BAS ",2110 

I - end  of  reduction - 


Figure  A. 11  RED. BAS  (cont.) 


A**  A^.4«a  aw  *« 


• - data  editor - 

GOSUB  180 

COLOR  15,1,7:  KEY  OFF:  CLS 

LOCATE  5,34:  PRINT  "*OPTIONS  MENU*” 

PRINT 


C0MMAND$(2)  »  ”r" :  COMMAND$(3) 


"s”:  C0MMAND$(6) 


PRINT 

PRINT  TAB(30)  "1.  CREATE  A  NEW  FILE” 

PRINT 

PRINT  TAB (30)  ”2.  EDIT  EXISTING  FILE” 

PRINT 

PRINT  TAB (30)  ”3.  INCREASE  NUMBER  OF  TEST  POINTS” 
PRINT  TAB(30)  ”  IN  AN  EXISTING  FILE” 

PRINT 

PRINT  TAB (30)  ”4.  EXIT  DATA  EDITOR” 

LOCATE  20,5:  INPUT  "ENTER  YOUR  CHOICE  (1, 2 , 3 , 4) ” ;REP% 
ON  REP%  GOSUB  390,280,2530,480 
GOTO  30 

* - INITIALIZING  CONSTANTS - 

OPTION  BASE  1:  KEY  OFF 

DIM  LF(IOO) ,DF(100) ,YF(100) ,PM(100) ,RM(100) 

DIM  YM(IOO) ,AOA(100) ,COMMAND(10) 

BLANK2$  -  ”  ” 

BLANK1$  -  «  M 

BLANK$  *  ”  ” 

COMMAND$(l)  -  ”C”:  COMMAND$(2)  »  ”r” :  COMMAND$(3) 

=  «d” 

COMMAND$(4)  -  ”e”:  COMMAND$(5)  -  ”s”:  COMMAND$(6)  = 
”U”:  COMMAND$(7)  =  ”q” 

RETURN 

I - edit  a' file - 

CLS:  COLOR  15,1,7 

LOCATE  5,10:  INPUT  "ENTER  YOUR  FILE  NAME”;FILE$ 

FILE$  -  FD$+FILE$ 

GOSUB  2680  '  READ  IN  FILE 

PAGE%  -  1:  COL%  -  1:  SAVED%  -  0:  OLDXPOS%  »  0: 
OLDYPOS%  -  0 

GOSUB  1050  'PRINT  BACKGROUND  LINES 

ROW%  »  3:  GOSUB  1740  :  GOSUB  1900  'HIGHLIGHT 

FIRST  ROW  AND  COLUMN 

LOCATE  23,30:  PRINT  "LISTING":  BEEP 

GOSUB  1430  'PRINT  COLUMNS  1-7  AND  Q  VALUE 

LOCATE  23,20:  PRINT  BLANK2$ 

GOTO  470 

I - CREATE  A  FILE - 

COLOR  15,1,7:  CLS 

LOCATE  5,10:  INPUT  "ENTER  YOUR  FILE  NAME'';FILE$ 

FILE$  -  FD$  +  FILE$ 

LOCATE  7,10:  INPUT  "ENTER  TEST  CONFIGURATION" ; CONFIG$ 
LOCATE  9,10:  INPUT  "ENTER  THE  NUMBER  OF  TEST  POINTS 
PER  RUN";NOD% 

Figure  A. 12  ADATA.BAS  -  On-Screen  Data  Editor 


'HIGHLIGHT 


0 


440  PAGE%  «  1:  COL%  -  1:  SAVED%  »  0:  OLDXPOS%  » 

OLOYPOSt  -  0 

450  60SUB  1050  'PRINT  BACKGROUND  LINES 
460  ROW%  -  3:  GOSUB  1740:  GOSUB  1900  'HIGHLIGHT 

FIRST  ROW  AND  COLUMN 
470  GOSUB  490  '  INSERT  NEW  DATA 

480  COMMON  FD$ , PD$ , DX% 

481  CHAIN  PD$+"MAIN. BAS", 2110 

482  RETURN 

490  ' - CHANGE  OR  INSERT  DATA - 

500  LOCATE  23,12:  PRINT  BLANK$ 

510  LOCATE  23,12:  INPUT  REP$:  IF  REP$  -  ""  THEN  GOTO  530 
520  GOTO  570 

530  LOCATE  23,12:  PRINT  BLANK$:  LOCATE  23,12:  PRINT 
"INVALID  COMMAND":  BEEP 
540  FOR  I  -  1  TO  500  STEP  1 
550  NEXT  I 
560  GOTO  500 

570  REP2$  -  RIGHT$(REP$,1) 

580  Tl%  a  ASC(REP2$) 

590  IF  Tl%  >-  43  AND  Tl%  <=  57  THEN  GOTO  650 
600  Tl%  -  Tl%  OR  32:  REP2$  =  CHR$(T1%) 

610  GOSUB  2000 

620  IF  VALID%  =»  0  THEN  GOTO  500  ELSE  VALID%  =  0 
630  ON  FLAG%  GOSUB  1780,1670,2080,2340,2770,2170,2260 
640  IF  REP2$  <>  "e"  THEN  GOTO  500  ELSE  GOTO  1040 
650  WHILE  REP2$  <>  "e" 

660  NEWDATA  =  VAL(REP$) 

670  IF  QUIT%  =  1  OR  OLDXPOS%  =  0  THEN  QUIT%  =  0:  GOTO 

700  ELSE 

680  LOCATE  OLDXPOS%,OLDYPOS%, 0 

690  PRINT  USING  "####.##" ;OLDDATA 

700  LOCATE  23,12;  PRINT  BLANK$ 

710  R%  =  ROW%  -  2 

720  IF  COL%  =  1  THEN  LF (R%+18* (PAGE%-1) ) =  NEWDATA: 

YPOS%  -  7;  GOTO  790;  ELSE 

730  IF  COL%  -  2  THEN  DF (R%+18* (PAGE%-1) ) =NEWDATA:  YPOS% 

-  18;  GOTO  790;  ELSE 

740  IF  COL%  »  3  THEN  YF (R%+18* (PAGE%-1) ) =NEWDATA:  YPOS% 

-  29;  GOTO  790;  ELSE 

750  IF  COL%  »  4  THEN  PM(R%+18* (PAGE%-1) ) -NEWDATA:  YPOS% 

-  40;  GOTO  790;  ELSE 

760  IF  COL%  -  5  THEN  RM(R%+18* (PAGE%-1) ) -NEWDATA:  YPOS% 

-  51:  GOTO  790:  ELS 

770  IF  COL%  =  6  THEN  YM(R%+18* (PAGE%-1) ) -NEWDATA:  YPOS% 

-  62:  GOTO  790:  ELS 

780  IF  COL%  -7  THEN  AOA(R%+18* (PAGE%-1) ) -NEWDATA:  YPOS% 

»  71;  GOTO  790;  ELS 
790  XPOS%  -  ROW% 

800  LOCATE  XPOS%,YPOS%;  COLOR  0,10 
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PRINT  USING  "####. ##";  NEWDATA:  M0DIFIED%  =  1 
SAVED%  -  0;  COLOR  15,1,7 

OLDYPOS%  -  YPOS%;  OLDXPOS%  -  XP0S%:  OLDDATA  = 

NEWDATA 

FWD%  »  1 

1%  a  R0W%+1:  GOSUB  1690  'HIGHLIGHT  NEW  ROW 
IF  1%  >  NOD%+2  THEN  FWD%  -  1  ELSE  FWD%  -  0 
IF  1%  >  20  THEN  FWD%  *  1  ELSE  FWD%  =  0 
GOSUB  1800  'HIGHLIGHT  NEW  ROW 
COLOR  15,1,7 

LOCATE  23,12:  PRINT  BLANK$ 

LOCATE  2 3, 12: INPUT  REP$:  IF  REP$  ■  THEN  GOTO  930 
GOTO  950 

LOCATE  23,12:  PRINT  BLANK$:  LOCATE  23,12:  PRINT 
"INVALID  COMMAND":  BEEP 
GOTO  900 

REP2$  =  RIGHT$(REP$,1) 

Tl%  =  ASC(REP2$) 

IF  Tl%  >»  43  AND  Tl%  <»  57  THEN  GOTO  650 
Tl%  =  Tl%  OR  32:  REP2$  =  CHR$(T1%) 

GOSUB  2000  'CHECK  COMMANDS 
IF  VALID%  »  0  THEN  GOTO  500  ELSE  VALID%  »  0 
ON  FLAG%  GOSUB  1780,1670,2080,2340,2770,2170,2260 
'COMMAND  SUBROUTINES 

IF  REP2$  <>  "e"  THEN  GOTO  900  ELSE  GOTO  1030 
WEND 
RETURN 

• - PRINT  BACKGROUND  LINES - : - 

COLOR  15,1,7 
CLS 

LOCATE  2,1 

FOR  1%  -  1  TO  80  :  PRINT  CHR$(220);:  NEXT 
LOCATE  1,9:  PRINT  "LIFT" 

LOCATE  1,20:  PRINT  "DRAG" 

LOCATE  1,32:  PRINT  "YAW" 

LOCATE  1,41:  PRINT  "PITCH" 

LOCATE  1,53:  PRINT  "ROLL" 

LOCATE  1,62:  PRINT  "YAW  M." 

LOCATE  1,74:  PRINT  "AOA" 

LOCATE  21,1 

FOR  1%  »  1  TO  80  :  PRINT  CHR$(220);:  NEXT 
FOR  1%  »  1  TO  22 

LOCATE  I%,1:  PRINT  CHR$(222) 

LOCATE  I%,80:  PRINT  CHR$(222) 

NEXT 

FOR  1%  »  1  TO  21 

LOCATE  I%,14:  PRINT  CHR$(179) 

LOCATE  I%,25:  PRINT  CHR$(179) 

LOCATE  I%,36:  PRINT  CHR$(179) 

LOCATE  I%,47:  PRINT  CHR$(179) 

Figure  A. 12  ADATA.BAS  (cont.) 
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1280  LOCATE  I%,58;  PRINT  CHR$(179) 

1290  LOCATE  I%,69:  PRINT  CHR$(179) 

1300  NEXT 

1310  FOR  1%  -  1  TO  18 
1320  LOCATE  I%+2,2 

1330  PRINT  USING  ''###«;  I%+18 *  ( PAGE%-1 )  ; :  PRINT  '• ;  '• 

1340  NEXT 

1350  COLOR  15,4 

1360  LOCATE  22,15:  PRINT  "C  COIUMN  R  ROW  D  DOWN  E  EXIT” 
1370  LOCATE  22,46:  PRINT  ”  S  SAVE  U  UP  Q  TUNNEL 
SPEED” 

1380  COLOR  14,0:  LOCATE  23,44:  PRINT  CONFIG$ 

1390  COLOR  15,1,7 

1400  LOCATE  22,2:  PRINT  ”[Q  LOCATE  22,12:  PRINT  ”]” 

1410  LOCATE  23,3:  PRINT  "COMMAND  :" 

1420  RETURN 

1430  ' - PRINT  COLUMNS  1-7  AND  Q  VALUE - 

1440  FOR  1%  -  1  TO  18 

1450  LOCATE  I%+2,7:  PRINT  USING  ”####.##" ;LF (I%+18* (PAG 
E%-1)) 

1460  NEXT 

1470  FOR  1%  -  1  TO  18 

1480  LOCATE  I%+2,18:  PRINT  USING  "####.##”; DF (I%+18* (PA 

GE%-1) ) 

1490  NEXT 

1500  FOR  1%  -  1  TO  18 

1510  LOCATE  I%+2,29:  PRINT  USING  "####.##" ;YF (I%+18* (PA 

GE%-1) ) 

1520  NEXT 

1530  FOR  1%  -  1  TO  18 

1540  LOCATE  I%+2,40:  PRINT  USING  "####.##" ;PM(I%+18* (PA 

GE%-1) ) 

1550  NEXT 

1560  FOR  1%  -  1  TO  18 

1570  LOCATE  I%+2,51:  PRINT  USING  "####.##" ;RM(I%+18* (PA 

GE%-1) ) 

1580  NEXT 

1590  FOR  1%  -  1  TO  18 

1600  LOCATE  I%+2,62;  PRINT  USING  "####.##" ;YM(I%+18* (PA 

GE%-1) ) 

1610  NEXT 

1620  FOR  1%  »  1  TO  18 

1630  LOCATE  I%+2,71:  PRINT  USING  "####.##" ;AOA(I%+18* (P 

AGE%-1) ) 

1640  NEXT 

1650  LOCATE  22, 7: PRINT  USING  "###";Q 
1660  RETURN 

1670  ' - ROW  INDEXING - 

1680  FWD%  ■  VAL(REP$) :  IF  FWD%  «  0  THEN  FWD%  =  1 
1690  OLDROW%  »  ROW%;  ROW%  »  ROW%  +  FWD% 
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1700  IF  ROW%  >  NOD%+2  THEN  RO«%  -  3 
1710  IF  ROW%  >20  THEN  ROW%  -  3 
1720  IF  ROW%  <  3  THEN  ROW%  -  3 

1730  LOCATE  OLDROW%,2;  PRINT  USING  •'###•' ;OLDROW%-2+18*  (PAG 
E%-1);;  PRINT 

1740  COLOR  14,4:  LOCATE  ROW%,2 

1750  PRINT  USING  '•###"  ;ROW%-2+18*  (PAGE%-1)  ; :  PRINT  ” 

1760  COLOR  15,1,7 
1770  RETURN 

1780  • - COLUMN  INDEXING - — 

1790  FWD%  -  VAL(REP$) :  IF  FWD%  =  0  THEN  FWD%  =  1 
1800  OLOCOL%  »  COL%:  COL%  >  COL%  +  FWD% 

1810  IF  COL%  >  7  THEN  COL%  -  1 
1820  IF  COL%  <  1  THEN  COL%  =  7 

1830  IF  OLDCOL%  -  1  THEN  LOCATE  1,9:  PRINT  "LIFT'';  GOTO 
1900  ELSE 

1840  IF  OLDCOLt  «  2  THEN  LOCATE  1,20:  PRINT  "DRAG”:  GOTO 
1900  ELSE 

1850  IF  OLDCOL%  -  3  THEN  LOCATE  1,32:  PRINT  "YAW":  GOTO 
1900  ELSE 

1860  IF  OLDCOL%  «  4  THEN  LOCATE  1,41:  PRINT  "PITCH":  GOTO 
1900  ELSE 

1870  IF  OLDCOL%  -  5  THEN  LOCATE  1,53;  PRINT  "ROLL";  GOTO 
1900  ELSE 

1880  IF  OLDCOL%  -  6  THEN  LOCATE  1,62:  PRINT  "YAW  M.";  GOTO 
1900  ELSE 

1890  IF  OLDCOL%  -  7  THEN  LOCATE  1,74:  PRINT  "AOA" ;  GOTO 
1900  ELSE 
1900  COLOR  14,4 

1910  IF  COL%  -  1  THEN  LOCATE  1,9:  PRINT  "LIFT":  GOTO  1980 
ELSE 

1920  IF  COL%  -  2  THEN  LOCATE  1,20;  PRINT  "DRAG":  GOTO  1980 
ELSE 

1930  IF  COL%  »  3  THEN  LOCATE  1,32;  PRINT  "YAW";  GOTO  1980 
ELSE 

1940  IF  COL%  -  4  THEN  LOCATE  1,41:  PRINT  "PITCH":  GOTO  1980 
ELSE 

1950  IF  COL%  -  5  THEN  LOCATE  1,53:  PRINT  "ROLL":  GOTO  1980 
ELSE 

1960  IF  COL%  »  6  THEN  LOCATE  1,62:  PRINT  "YAW  M.";  GOTO 
1980  ELSE 

1970  IF  COL%  -  7  THEN  LOCATE  1,74:  PRINT  "AOA";  GOTO  1980 
ELSE 

1980  COLOR  15,1,7 
1990  RETURN 

2000  ' - CHECK  COMMANDS - 

2010  1%  -  0 

2020  WHILE  1%  <  7  AND  VALID%  «  0 
2030  1%  -  1%  +  1 

2040  IF  REP2$  »  COMMAND$(I%)  THEN  FLAG%  =  1%;  VALID%  =  1 
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2050  WEND 

2060  IF  VALID%  «  0  THEN  GOSUB  2420  'ERROR  MESSAGE 
2070  RETURN 

2080  ' - SCROLL  DOWN - 

2090  FWD%  »  VAL(REP$) :  IF  FWD%  »  0  THEN  FWD%  -  1 
2100  PAGE%  «  PAGE%  +  FWD% 

2110  IF  PAGE%  <  1  THEN  PAGE%  »  1 

2120  GOSUB  1050  'PRINT  BACKGROUND  LINES 

2130  ROW%  »  3:  COL%  »  1:  GOSUB  1740:  GOSUB  1900  'HIGHLIGHT 
FIRST  ROW  AND  COLUMN 

2140  GOSUB  1430  'PRINT  COLUMNS  1-7  AND  Q  VALUE 
2150  OLDXPOS%  =  0 
2160  RETURN 

2170  ' - SCROLL  UP - 

2180  FWD%  =  VAL(REP$) :  IF  FWD%  =  0  THEN  FWD%  =  1 
2190  PAGE%  »  PAGE%  -  FWD% 

2200  IF  PAGE%  <  1  THEN  PAGE%  »  1 
2210  GOSUB  1050  'PRINT  BACKGROUND  LINES 

2220  ROW%  -  3:  COL%  »  1:  GOSUB  1740:  GOSUB  1900  'HIGHLIGHT 
FIRST  ROW  AND  COLUMN 

2230  GOSUB  1430  '  PRINT  COLUMNS  1-7  AND  Q  VALUE 
2240  OLDXPOS%  »  0 
2250  RETURN 

2260  ' - PRINT  OUT  Q  VALUE - 

2270  LOCATE  23,12:  PRINT  BLANK$ 

2280  LOCATE  23,12:  INPUT  "Q  *";Q  ' 

2290  LOCATE  23,12:  PRINT  BLANK$ 

2300  COLOR  0,10 

2310  LOCATE  22,7:  PRINT  USING  "###";Q 
2320  COLOR  15,1,7 
2330  RETURN 

2340  ' - EXIT  EDITOR - - - 

2350  IP  SAVED%  -  1  OR  MODIFIED%  -  0  THEN  GOTO  2410 

2360  LOCATE  23,20:  PRINT  BLANK2$:  BEEP 

2370  LOCATE  23,20:  INPUT  "SAVE  FILE  (Y/N)";REP$ 

2380  IF  REP$  -  "N"  OR  REP$  »  "n"  THEN  GOTO  2410 
2390  GOSUB  2770  'SAVE  FILE 
2400  LOCATE  23,20:  PRINT  BLANK2$ 

2410  RETURN 

2420  ' - ERROR  MESSAGE - 

2430  LOCATE  23,20:  PRINT  BLANK2$ 

2440  LOCATE  23,20:  PRINT  "  INVALID  COMMAND" 

2450  FOR  F  »  300  TO  500  STEP  100 
2460  SOUND  F,2 

2470  SOUND  32767,2 

2480  NEXT 

2490  FOR  I  =  1  TO  500  STEP  1 
2500  NEXT  I 

2510  LOCATE  23,20:  PRINT  BLANK2$ 

2520  RETURN 
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2530  ' - ADD  TEST  POINTS  TO  FILE - 

2540  CLS 

2550  LOCATE  3,5;  PRINT''THIS  OPTION  ALLOWS  YOU  TO  INCREASE 
THE  NUMBER  OF  TEST" 

2560  LOCATE  4,5:  PRINT"POINTS  OF  AN  EXISTING  FILE" 

2570  LOCATE  7,5:  INPUT"WHAT  IS  THE  NAME  OF  YOUR  FILE";FILE$ 
2580  FILE$  -  FD$  +  FILE$ 

2590  GOSUB  2680 

2610  LOCATE  10,5:  INPUT"WHAT  IS  THE  NEW  NUMBER  OF  TUNNEL 
RtJNS";NOQ% 

2620  LOCATE  13,5;  INPUT"WHAT  IS  THE  NEW  NUMBER  OF  TEST 
POINTS  PER  RUN";NOD% 

2630  .GOSUB  2770 

2660  LOCATE  20,5;  PRINT"NOW  YOU  CAN  CALL  UP  YOUR  FILE  AND 
ADD  IN  THE  NEW  POINTS" 

2670  RETURN 

2680  • - READ  IN  FILE - 

2690  OPEN  FILES  FOR  INPUT  AS  #1 
2700  INPUT  #l,NOD%,CONFIG$,CONF 
2710  INPUT  #1,Q,W 

2714  INPUT  #l,ZL,ZD,ZY,ZPM,ZYM,ZRM,ZAOA 

2715  INPUT  #l,CLL,CALD,CALY,CALPM,CALYM,CALRM,CALAOA 
2720  FOR  J  -  1  TO  NOD% 

2730  INPUT  #1,LF(J) ,DF(J) ,YF(J) ,PM(J) ,RM(J) ,YM(J) ,AOA(J) 
2740  NEXT  J 
2750  CLOSE  #1 
2760  RETURN 

2770  • - SAVE  FILE - 

2780  LOCATE  23,20:  PRINT  BLANK2$:  LOCATE  23,30;  PRINT 
"SAVING  FILE" 

2790  OPEN  FILES  FOR  OUTPUT  AS  #2 
2800  WRITE  #2,NOD%,CONFIGS,CONF 
2810  WRITE  #2,Q,W 

2814  WRITE  #2,ZL,ZD,ZY,ZPM,ZYM,ZRM,ZAOA 

2815  WRITE  #  2 , CLL , CALD , CALY , CALPM , CALYM , CALRM , CALAOA 
2820  FOR  J  -  1  TO  NOD% 

2830  WRITE  #2 , LF ( J) , DF ( J) , YF ( J) , PM( J) , RM( J) , YM( J) , AOA( J) 
2840  NEXT  J 
2850  CLOSE  #2 
2860  RETURN 
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10  REM - COMP. BAS;  CALCULATE  Cd,  Cl  AND  E.  F.  A. - 

15  REM 

16  DIM  LF(IOO) ,DF(100) ,YF(100) ,PM(100) ,YM(100) ,RM(100) , 
AOA(IOO) 

17  DIM  CD(IOO) ,CL(100) ,EFA(100) 

20  COLOR  15,1,4:KEY  OFF:  CLS 

30  PRINT  "WHAT  IS  THE  NAME  OF  YOUR  FILE  CONTAINING  THE"; 
35  PRINT  "  CALIBRATED" 

40  INPUT  "WIND  TUNNEL  DATA"; FILE $ 

50  FILE$  =  FD$+  FILE$ 

60  GOSUB  680  'READ  IN  DATA  FROM  FILE 

70  REM  —  FOR  THE  FOLLOWING,  AREAL  IS  MEASURED  IN  SQUARE 
FEET 

90  AREAL  =60/144 

270  FOR  J  =  1  TO  NOD% 

280  CL(J)  =  LF(J)/(Q*AREAL) 

290  CD(J)  =  DF(J)/(Q*AREAL) 

295  EFA(J)  =LF(J)/Q 

300  NEXT  J 

310  ' - STORE  DATA  FOR  Cd  VS.  Cl - 

311  INPUT"WHAT  IS  THE  NAME  FOR  THE  FILE  TO  STORE  Cd  VS. 

Cl  DATA";N$ 

312  Y$="Cd";X$="Cl" 

320  OPEN  FD$+N$  FOR  OUTPUT  AS  #1 

330  WRITE  #l,NOD%,Y$,X$,CONFIG$,CONF 

340  WRITE  #1,Q 

350  FOR  J  =  1  TO  NOD% 

360  WRITE  #1,CD(J) ,CL(J) 

370  NEXT  J 

380  CLOSE  #1 

390  ' - -STORE  DATA  FOR  Cd  VS.  Cl*Cl - 

391  INPUT"WHAT  IS  THE  NAME  FOR  THE  FILE  TO  STORE  Cd  VS. 

Cl ^2  DATA";N$ 

392  Y$="Cd";X$="C1^2" 

400  OPEN  FD$+N$  FOR  OUTPUT  AS  #2 

410  WRITE  #2,NOD%, Y$,X$,CONFIG$,CONF 

420  WRITE  #2,Q 

430  FOR  J  =  1  TO  NOD% 

440  B  =  CL(J)*CL(J) 

450  WRITE  #2,CD(J),B 

460  NEXT  J 

470  CLOSE  #2 

480  - STORE  DATA  FOR  Cl  VS.  AOA - 

481  INPUT"WHAT  IS  THE  NAME  FOR  THE  FILE  TO  STORE  THE  Cl 
VS.  AOA  DATA";N$ 

482  Y$="C1":X$="A0A" 

490  OPEN  FD$+N$  FOR  OUTPUT  AS  #2 

500  WRITE  #2,NOD%, Y$,X$,CONFIG$,CONF 

510  WRITE  #2,Q 

520  FOR  J  =  1  TO  NOD% 


Figure  A. 13  COMP. BAS  -  Program  to  Calculate  Parameters 


530  WRITE  #2,CL(J) ,AOA(J) 

540  NEXT  J 

550  CLOSE  #2 

560  • - STORE  DATA  FOR  E.F.A.  VS  AOA' 


561  INPUT"WHAT  IS  THE  NAME  FOR  THE  FILE  TO  STORE  THE 

.F.A.  VS.  AOA  DATA'';N$ 

562  Y$»''E.F.A.'';X$=''AOA'‘ 

570  OPEN  FD$+N$  FOR  OUTPUT  AS  #1 

580  WRITE  #l,NOD%,Y$,X$,CONFIG$,CONF 

590  WRITE  #1,Q 

600  FOR  J  *  1  TO  NOD% 

610  WRITE  #1,EFA(J) ,AOA(J) 

620  NEXT  J 

630  CLOSE  #1 

640  • - RETURN  TO  MAIN  PROGRAM - 

650  COMMON  FD$,PD$,DX% 

660  CHAIN  PD$+''MAIN. BAS", 2110 

670  ' - READ  IN  DATA  FROM  CALIBRATED  FILE - 

680  OPEN  FILE$  FOR  INPUT  AS  #2 

690  INPUT  #2,NOD%,CONFIG$,CONF 

700  INPUT  #2,Q,W 

701  INPUT  #2,ZL,ZD,ZY,ZPM,ZYM,ZRM,ZAOA 

702  INPUT  #  2 , CLL , CALD , CALY , CALPM , CALYM , CALRM , CALAOA 

710  FOR  J  *  1  TO  NOD% 

720  INPUT  #2,LF(J) ,DF(J) ,YF(J) ,PM(J) ,RM(J) ,YM(J) , 

AOA(J) 

730  NEXT  J 

740  CLOSE  #2 

750  RETURN 
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100  PRINT 

110  PRINT  TAB (30)  "3.  INCREASE  NUMBER  OF  TEST  POINTS” 

120  PRINT  TAB (30)  ”  IN  AN  EXISTING  FILE” 

130  PRINT 

140  PRINT  TAB (30)  ”4.  EXIT  DATA  EDITOR” 

150  LOCATE  20,5:  INPUT  "ENTER  YOUR  CHOICE  (1, 2 , 3 , 4) ” ;REP% 
160  ON  REP%  GOSUB  380,270,2200,490 
170  GOTO  30 

180  • - - INITIALIZING  CONSTANTS - 

190  OPTION  BASE  1:  KEY  OFF 

200  DIM  Y(IOO) ,X(100) ,COMMAND(10)  ^ 

210  BLANK2$  =  ”  »  ^o 

220  BLANK1$  *  ”  " 

230  BLANK$  »  ”  ” 

240  COMMAND$(l)  “  ”c” : COMMAND$ (2)  =  ”r”:  COMMAND$(3)  =  ”d” 
250  COMMAND$(4)  =  ”e”:  COMMAND$(5)  =«  "s”:  COMMAND$(6)  = 
”U”:  COMMAND$(7)  =  "q” 

260  RETURN 

270  • - EDIT  A  FILE - 

280  CLS:  COLOR  15,1,7 

290  LOCATE  5,10:  INPUT  "ENTER  YOUR  FILE  NAME”;FILE$ 

295  FILE$  =  FD$  +  FILE$ 

300  GOSUB  2350  '  READ  IN  FILE 

310  PAGE%  =  1:  COL%  *  1:  SAVED%  =  0:  OLDXPOS%  =  0: 

OLDYPOS%  =  0 

320  GOSUB  1010  'PRINT  BACKGROUND  LINES 
330  ROW%  =  3:  GOSUB  1520  :  GOSUB  1620  'HIGHLIGHT 

FIRST  ROW  AND  COLUMN 
340  LOCATE  23,30:  PRINT  "LISTING”;  BEEP 
350  GOSUB  1360  'PRINT  COLUigiS  1-7  AND  Q  VALUE 
360  LOCATE  23,20:  PRINT  BLANK2$ 

370  GOTO  480 

380  ' - CREATE  A  FILE - 

390  COLOR  15  1  7j  CLS 

400  LOCATE  5^10:  INPUT  "ENTER  YOUR  FILE  NAME”; FILES 
405  FILR$  =  FD$  +  FILE$ 

410  LOCATE  7,10:  INPUT  "ENTER  TEST  CONFIGURATION" ; CONFIG$ 
420  LOCATE  9,10:  INPUT  "ENTER  THE  NUMBER  OF  TEST  POINTS 
PER  RUN" ;NOD% 

430  LOCATE  11,10:  INPUT  "ENTER  TITLE  FOR  X-VALUES  (i.e. 

CL,  A0A)";X1$ 
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LOCATE  13,10;  INPUT  "ENTER  TITLE  FOR  Y-VALOES  (i.e. 

Cd,  C1)";Y1$ 

PAGE%  ■  1:  COL%  -  1:  SAVED%  «  0:  OLDXPOS%  -  0: 

OLDYPOS%  -  0 

GOSUB  1010  'PRINT  BACKGROUND  LINES 

ROW%  «  3:  GOSUB  1520:  GOSUB  1620  'HIGHLIGHT  FIRST 

ROW  AND  COLUMN 

GOSUB  500  '  INSERT  NEW  DATA 

COMMON  FD$,  PD$,DX% 

CHAIN  PD$+"MAIN. BAS", 2110 
RETURN 

' - CHANGE  OR  INSERT  DATA - 

LOCATE  23,12:  PRINT  BLANK$ 

LOCATE  23,12;  INPUT  REP$:  IF  REP$  »  ""  THEN  GOTO  540 
GOTO  580 

LOCATE  23,12;  PRINT  BLANK$;  LOCATE  23,12:  PRINT 
"INVALID  COMMAND";  BEEP 
FOR  I  -  1  TO  500  STEP  1 
NEXT  I 
GOTO  510 

REP2$  -  RIGHT$(REP$,1) 

Tl%  *  ASC(REP2$) 

IF  Tl%  >-  43  AND  Tl%  <=  57  THEN  GOTO  660 
Tl%  -  Tl%  OR  32;  REP2$  »  CHR$(T1%) 

GOSUB  1670 

IF  VALID%  =  0  THEN  GOTO  510  ELSE  VALID%  =  0 
ON  FLAG%  GOSUB  1550,1450,1750,2010,2440,1840,1930 
IF  REP2$  <>  "e"  THEN  GOTO  510  ELSE  GOTO  1000 
WHILE  REP2$  <>  "e" 

NEWDATA  »  VAL(REP$) 

IF  QUIT%  =  1  OR  OLDXPOS%  -  0  THEN  QUIT%  =  0:  GOTO 
710  ELSE 

LOCATE  OLDXPOS%,OLDYPOS%,0 
PRINT  USING  "####. ##";OLDDATA 
LOCATE  23,12;  PRINT  BLANK$ 

R%  »  ROW%  -  2 

IF  COL%  =  1  THEN  Y (R%+18* (PAGE%-1) ) *NEWDATA;  YPOS% 
=  18;  GOTO  750:  ELS 

IF  COL%  -  2  THEN  X (R%+18* {PAGE%-1) ) "NEWDATA:  YPOS% 
=  43;  GOTO  750;  ELSE 
XPOS%  "  ROW% 

LOCATE  XPOS%,YPOS%;  COLOR  0,10 

PRINT  USING  "####.##";  NEWDATA:  MODIFIED%  =  1 

SAVED%  »  O;  COLOR  15,1 

OLDYPOS%  -  YPOS%:  OLDXPOS%  -  XPOS%;  OLDDATA  " 
NEWDATA 
FWD%  =  1 

1%  -  R0W%+1;  GOSUB  1470  'HIGHLIGHT  NEW  ROW 
IF  1%  >  NOD%+2  THEN  FWD%  "  1  ELSE  FWD%  "  0 
IF  1%  >  20  THEN  FWD%  «  1  ELSE  FWD%  »  0 
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840  GOSUB  1570  'HIGHLIGHT  NEW  ROW 
850  COLOR  15,1,7 

860  LOCATE  23,12:  PRINT  BLANK$ 

870  LOCATE  23,12:  INPUT  REP$:  IF  REP$  »  ""  THEN  GOTO 
890 

880  GOTO  910 

890  LOCATE  23,12:  PRINT  BLANK$:  LOCATE  23,12:  PRINT 

"INVALID  COMMAND":  BEEP 
900  GOTO  860 

910  REP2$  »  RIGHT$(REP$,1) 

920  Tl%  -  ASC(REP2$) 

930  IF  Tl%  >-  43  AND  Tl%  <»  57  THEN  GOTO  660 

940  Tl%  -  Tl%  OR  32:  REP2$  »  CHR$(T1%) 

950  GOSUB  1670  'CHECK  COMMANDS 

960  IF  VALID%  »  0  THEN  GOTO  510  ELSE  VALID%  =  0 

970  ON  FLAG%  GOSUB  1550,1450,1750,2010,2440,1840,1930 

'COMMAND  SUBROUTINES 

980  IF  REP2$  <>  "e"  THEN  GOTO  860  ELSE  GOTO  990 

990  WEND 

1000  RETURN 

1010  ' - PRINT  BACKGROUND  LINES - 

1020  COLOR  15,1,7 

1030  CLS 

1040  LOCATE  2,1 

1050  FOR  1%  =  1  TO  80  :  PRINT  .CHR$ (220) ; :  NEXT 
1060  LOCATE  1,18:  PRINT  "Y  =  ";¥!$ 

1070  LOCATE  1,43:  PRINT  "K  =  '';X1$ 

1080  LOCATE  1,68:  PRINT  "COMMANDS" 

1090  LOCATE  21,1 

1100  FOR  1%  =»  1  TO  80  :  PRINT  CHR$(220);:  NEXT 
1110  FOR  1%  »  1  TO  22 

1120  LOCATE  I%,1:  PRINT  CHR$(222) 

1130  .  LOCATE  I%,80:  PRINT  CHR$(222) 

1140  NEXT 

1150  FOR  1%  -  1  TO  21 

1160  LOCATE  I%,28:  PRINT  CHR$(179) 

1170  LOCATE  I%,53:  PRINT  CHR$(179) 

1180  NEXT 

1190  FOR  1%  =  1  TO  18 
1200  LOCATE  I%+2,2 

1210  PRINT  USING  "###" 7l%+18* (PAGE%-1) ; :  PRINT 

1220  NEXT 

1230  COLOR  15,4 
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1310  COLOR  14,0:  LOCATE  23,44:  PRINT  CONFIG$ 

1320  COLOR  15,1,7 

1330  LOCATE  22,2:  PRINT  ''[Q  LOCATE  22,12:  PRINT  '•]" 
1340  LOCATE  23,3:  PRINT  "COMMAND  :" 

1350  RETURN 

1360  • - PRINT  COLUMNS  1-7  AND  Q  VALUE - 

1370  FOR  1%  -  1  TO  18 

1380  LOCATE  I%+2,18;  PRINT  USING  "####. ##";y(I%+18*(PAG 
E%-1) ) 

1390  NEXT 

1400  FOR  1%  »  1  TO  18 

1410  LOCATE  I%+2,43:  PRINT  USING  "####.##" ;X(I%+18*(PAG 

E%-1) ) 

1420  NEXT 

1430  LOCATE  22, 7: PRINT  USING  «###";Q 
1440  RETURN 

1450  ' - ^ - ROW  INDEXING - 

1460  FWD%  -  VAL(REP$) :  IF  FWD%  -  0  THEN  FWD%  »  1 
1470  OLDROW%  -  ROW%:  ROW%  -  ROW%  +  FWD% 

1480  IF  ROW%  >  NOD%+2  THEN  ROW%  -  3 
1490  IF  ROW%  >  20  THEN  ROW%  -  3 
1500  IF  ROW%  <  3  THEN  ROW%  »  3 

1510  LOCATE  OLDROW%,2:  PRINT  USING  "###" ;OLDROW%-2+18* (PAG 
E%— 1) ••  PRINT  "j" 

1520  COLOR  14,4:  LOCATE  ROW%,2:  PRINT  USING  "###" ;ROW%-2+l 
8* (PAGE%-1) ; : PRINT  " : " 

1530  COLOR  15,1,7 
1540  RETURN 

1550  • - COLUMN  INDEXING - 

1560  FWD%  -  VAL(REP$) :  IF  FWD%  -  0  THEN  FWD%  -  1 
1570  OLDCOL%  »  COL%:  COL%  »  COL%  +  FWD% 

1580  IF  COL%  >  2  THEN  COL%  »  1 
1590  IF  COL%  <  1  THEN  COL%  »  2 

1600  IF  OLDCOL%  »  1  THEN  LOCATE  1,18:  PRINT  "Y  =  ";Y1$: 
GOTO  1620  ELSE 

1610  IF  OLDCOL%  »  2  THEN  LOCATE  1,43:  PRINT  "X  »  ";X1$: 

GOTO  1620  ELSE 
1620  COLOR  14,4 

1630  IF  COL%  »  1  THEN  LOCATE  1,18:  PRINT  "Y  -  ";Y1$:.  GOTO 
1650  ELSE 

1640  IF  COL%  »  2  THEN  LOCATE  1,43:  PRINT  "X  =  ";X1$:  GOTO 
1650  ELSE 
1650  COLOR  15,1,7 
1660  RETURN 

1670  ' - CHECK  COMMANDS - 

1680  1%  =  0 

1690  WHILE  1%  <  7  AND  VALID%  *  0 
1700  1%  »  1%  +  1 

1710  IF  REP2$  =  C0MMAND$(I%)  THEN  FLAG%  =  1%:  VALID%  = 
1720  WEND 
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1730  IF  VALID%  -  0  THEN  GOSUB  2090  'ERROR  MESSAGE 
1740  RETURN 

1750  • - SCROLL  DOWN - 

1760  FWD%  -  VAL(REP$) :  IF  FWD%  -  0  THEN  FWD%  =  1 
1770  PAGE%  -  PAGE%  +  FWD% 

1780  IF  PAGE%  <  1  THEN  PAGE%  -  1 

1790  GOSUB  1010  'PRINT  BACKGROUND  LINES 

1800  ROW%  -  3:.COL%  =  1:  GOSUB  1520:  GOSUB  1620  'HIGHLIGHT 
FIRST  ROW  AND  COLUMN 

1810  GOSUB  1360  'PRINT  COLUMNS  1-7  AND  Q  VALUE 
1820  OLDXPOS%  «  0 
1830  RETURN 

1840  ' - SCROLL  UP - 

1850  FWD%  -  VAL(REP$) :  IF  FWD%  »  0  THEN  FWD%  =  1 
1860  PAGE%  -  PAGE%  -  FWD% 

1870  IF  PAGE%  <  1  THEN  PAGE%  =  1 

1880  GOSUB  1010  'PRINT  BACKGROUND  LINES 

1890  ROW%  »  3:  COL%  -  1:  GOSUB  1520:  GOSUB  1620  'HIGHLIGHT 
FIRST  ROW  AND  COLUMN 

1900  GOSUB  1360  '  PRINT  COLUMNS  1-7  AND  Q  VALUE 
1910  OLDXPOS%  «  0 
1920  RETURN 

1930  ' - - - PRINT  OUT  Q  VALUE - 

1940  LOCATE  23,12:  PRINT  BLANK$ 

1950  LOCATE  23,12:  INPUT  "Q  -";Q 
1960  LOCATE  23,12:  PRINT  BLANK$ 

1970  COLOR  0,10 

1980  LOCATE  22,7:  PRINT  USING 

1990  COLOR  15,1,7 


2000  RETURN 

2010  ' - EXIT  EDITOR - 

2020  IF  SAVED%  »  1  OR  MODIFIED%  -  0  THEN  GOTO  2080 


2030  LOCATE  23,20:  PRINT  BLANK2$:  BEEP 
2040  LOCATE  23,20:  INPUT  "SAVE  FILE  (Y/N)";REP$ 
2050  IF  REP$  -  "N"  OR  REP$  »  "n"  THEN  GOTO  2080 
2060  GOSUB  2440  'SAVE  FILE 
2070  LOCATE  23,20:  PRINT  BLANK2$ 

2080  RETURN 

2090  ' - ERROR  MESSAGE - 

2100  LOCATE  23,20:  PRINT  BLANK2$ 

2110  LOCATE  23,20:  PRINT  "  INVALID  COMMAND" 

2120  FOR  F  -  300  TO  500  STEP  100 
2130  SOUND  r,2 

2140  SOUND  32767,2 

2150  NEXT 

2160  FOR  I  »  1  TO  500  STEP  1 
2170  NEXT  I 

2180  LOCATE  23,20:  PRINT  BLANK2$ 

2190  RETURN 

2200  ' - ADD  TEST  POINTS  TO  FILE - 

Figure  A. 14  BDATA.BAS  (cont.) 


72 


2210  CLS 

2220  LOCATE  3,5:  PRINT"THIS  OPTIOK  ALLOWS  YOU  TO  INCREASE 
THE  NUMBER  OF  TEST** 

2230  LOCATE  4,5:  PRINT" POINTS  OF  AN  EXISTING  FILE" 

2240  LOCATE  7,5:  INPUT"WHAT  IS  THE  NAME  OF  YOUR  FILE";FILE$ 
2250  FILE$  -  FD$  -t-  FILE$ 

2260  GOSUB  2350 

2290  LOCATE  13,5:  INPUT"WHAT  IS  THE  NEW  NUMBER  OF  TEST 
POINTS  PER  RUN";NOD% 

2300  GOSUB  2440 

2330  LOCATE  20,5:  PRINT"NOW  YOU  CAN  CALL  UP  YOUR  FILE  AND 
ADD  IN  THE  NEW  POINTS" 

2340  RETURN 

2350  • - READ  IN  FILE - 

2360  OPEN  FILE$  FOR  INPUT  AS  #1 

2370  INPUT  #l,NOD%,Yl$,Xl$,CONFIG$,CONF 

2380  INPUT  #1,Q 

2390  FOR  J  -  1  TO  NOD% 

2400  INPUT  #1,Y(J) ,X(J) 

2410  NEXT  J 

2420  CLOSE  #1 
2430  RETURN 

2440  • - SAVE  FILE - 

2450  LOCATE  23,20:  PRINT  BLANK2$:  LOCATE  23,30:  PRINT 
"SAVING  FILE" 

2460  OPEN  FILE$  FOR  OUTPUT  AS  #2 
2470  WRITE  #2,NOD%,Yl$,Xl$,CONFIG$,CONF 
2480  WRITE  #2,Q 
2490  FOR  J  -  1  TO  NOD% 

2500  WRITE  #2,Y(J) ,X(J) 

2510  NEXT  J 

2520  CLOSE  #2 
2530  RETURN 
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10  ' - PLOTTING  ROOTINE - 

20  DIN  X(300) ,Y(300) ,B(300) ,C(300) ,D(300) 

30  KEY  OFF:  SCREEN  2 

40  HDPOS%  -  44:  B$  -  "  " 

60  60SUB  260 
70  OPT$  -  CURVE$(1) 

80  ERASE  X,Y,FILESTK$,CURVE$,B,C,D 
90  CHAIN  PD$+"MAIN. BAS", 2110, ALL 

150  t - IN  PILE - 

160  OPEN  FILE$  FOR  INPUT  AS  #2 
170  INPUT  #2,N0D%,Y1$,X1$,H$,C0NF 
180  INPUT  #2,Q 
190  FOR  1%  -  1  TO  NOD% 

200  INPUT  #2,Y(I%) ,X(I%) 

210  NEXT 

220  CLOSE  #2 
230  RETURN 

260  • - INITIALIZING  PLOTTER - 

270  FOR  L%  -  1  TO  NOF% 

280  FILE$  »  FILESTK$(L%) 

290  GOSUB  160 

300  IF  L%»1  THEN  XMIN=X(1) :  XMAX*XMIN:  YMIN*Y(1): 

YMAX=YMIN 

310  FOR  I%=1  TO  NOD% 

320  IF  X(I%)<XMIN  THEN  XMIN=X(I%)  ELSE  IF  X(I%)> 

XMAX  THEN  XMAX»X(I%) 

330  IF  Y(I%)<YMIN  THEN  YMIN=Y(I%)  ELSE  IF  Y(I%)> 

YHAX  THEN  YMAX=Y(I%) 

340  NEXT  1% 

350  NEXT  L% 

351  CLS 

352  PRINT  "AFTER  CURVES  ARE  PLOTTED  YOU  HAVE  THE  OPTION 
OF  OBTAINING  A  HARD" 

353  PRINT  "COPY  BY  PRESSING  CTRL-PRTSC.  THE  CURVE  WILL 
REMAIN  ON  THE  SCREEN" 

354  PRINT  "UNTIL  YOU  PRESS  THE  F2  KEY." 

355  PRINT 

360  INPUT  "HEADDING  FOR  PLOT  =»";HEAD$ 

370  T1%*LEN(HEAD$) ;  IF  Tl%>60  THEN  HEAD$=LEFT$ (HEAD$ , 60) 
380  INPUT  "X  TITLE  FOR  THE  PLOT  =";XTITLE$ 

390  T1%=LEN(XTITLE$) :  IF  Tl%>60  THEN  XTITLE$=LEFT$ (XTITLE 
$,60) 

400  INPUT  "Y  TITLE  FOR  THE  PLOT  =";YTITLE$ 

410  T1%=LEN(YTITLE$) :  IF  Tl%>60  THEN  YTITLE$=LEFT$ ( YTITLE 
$,60) 

420  PRINT  "MINIMUM  X  VALUE  *  [DEFAULT: " ;XMIN; :  INPUT 
Tl$ 

430  IF  Tl$  <>  ""  THEN  TEMP=VAL(T1$)  ELSE  TEMP=XMIN 

440  IF  TEMP<=XMIN  THEN  0K%=1  ELSE  OK%*0 

450  IF  Tl$  <>  ""  THEN  TEMP3  =XMIN:  XMIN  =  TEMP 
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460  PRINT  ''MAXIMUM  X  VALUE  »  [DEFAULT:  "  ;XMAXy :  INPUT 
Tl$ 

470  IF  Tl$  <>  ""  THEN  XMAX-VAL(T1$) 

480  PRINT  "MINIMUM  Y  VALUE  -  [DEFAULT: " ;YMIN; :  INPUT 
Tl$ 

490  IF  Tl$  <>  ""  THEN  YMIN-VAL(T1$) 

500  PRINT  "MAXIMUM  Y  VALUE  -  [DEFAULT: " ;YMAX; :  INPUT 
Tl$ 

510  IF  Tl$  <>  ""  THEN  YMAX-VAL(T1$) 

520  RANGE-XMAX-XMIN 

530  IF  0K%-1  THEN  PTR%-1:  STKPTR%-1:  PGSTK%(1)=1  ELSE 
GOSUB  580 
540  CLS:  SCREEN  2 
550  GOSUB  840 
560  RETURN 

570  ' - SET  PAGES - 

580  TEMP2=(TEMP-TEMP3)/RANGE+1:  PG%=INT (TEMP2 ) 

590  STKPTR%-PG%+1 

600  FOR  1%  -  1  TO  STKPTR% 

610  T2»TEMP-RANGE*(I%-1) 

620  J%«1 

630  WHILE  X(J%)<T2 

640  J%-J%+1 

650  WEND 

660  PGSTK%(PG%-I%+2)=J% 

670  NEXT  1% 

680  PTR%-PGSTK%(STKPTR%) 

690  RETURN 

700  ' - PLOT  WITHOUT  GRID - ^ - 

710  LINE (ORIGINX% , 0RIGINY%) - (ORIGINX%+7*INTERVALX% , TEMP4% 

)  /1,B 

720  X%«ORIGINX% 

730  FOR  1%  »  1  TO  8 

740  LINE  (X%,162)-(X%,165) 

750  X%»X%+INTERVALX% 

760  NEXT 

770  Tl%=ORIGINX%-8:  T2%=ORIGINY% 

780  FOR  1%  »  1  TO  5 

790  LINE  (Tl%,T2%)-(ORIGINX%,T2%) 

800  T2%»T2%+INTERVALY% 

810  NEXT 

820  RETURN 

830  ' - PLOTTING  ROUTINES - 

840  ORIGINY%al2;  ORIGINX%=72:  INTERVALY%=30 :  INTERVALX%=80 
850  TEMP4%-ORIGINY%+5*INTERVALY% 

870  VIEW (0,0) -(639,163) :  CLS:  VIEW 
890  GOSUB  710 

900  IF  LEFT$(GRD$,1)»"G"  THEN  GOSUB  2400 
910  X%-ORIGINX%:  Y%=ORIGINY% 

920  FOR  L%»1  TO  NOF% 
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930 

IF  N0F%-1  THEN  GOTO 

960 

940 

FILE$*FILESTK$ (L%) 

950 

GOSUB  160 

960 

XINDEX-XMIN 

970 

GOSUB  1410 

980 

IF  L%-1  THEN  GOSUB 

1120 

990 

IF  L%  <>  NOF%  THEN 

PTR%=PGSTK% (STKPTR%) 

1000 

NEXT  L% 

1001  ON  KEY(1}  GOSUB  1006 

1002  ON  KEY (2)  GOSUB  1009 

1003  KEY(2)  OFF;  KEY(l)  ON:  KEY(2)  ON 

1004  IF  FLAG  »  1  THEN  GOTO  1100 

1005  GOTO  1001 

1006  LOCATE  23,1:  PRINT  ''HI'* 

1008  RETURN 

1009  FLAG  >  1 

1010  RETURN 

1100  FLAG  =  0 

1101  RETURN 

1110  ' - PLOT  ZERO  LINE - 

1120  IF  (YMAX*YMIN  <0)  THEN  TEMP= (-1*YMIN/ (YMAX-YMIN) ) *150 
ELSE  GOTO  1150 
1130  DELTAY%=CINT(TEMP) 

1140  LINE (ORIGINX% , TEMP4%-DELTAY%) - (ORIGINX%+7*INTERVALX% , 
TEMP4%-DELTAY%) 

1150  IF  (XMAX*XMIN  <0)  THEN  TEMP= (-1*XMIN/ (XMAX-XMIN) ) *550 
ELSE  GOTO  1190 
1160  DELTAX%=CINT(TEMP) 

1170  LINE (ORIGINX%+DELTAX%,ORIGINY%) - (ORIGINX%+DELTAX%,TEM 
P4%) 

1180  • - - PRINT  INDECIES - 

1190  YINDEX=YMAX 

1200  TEMP  =  (YMAX-YMIN)/5 

1210  P%*LEN(HEAD$) ;  P%=HDPOS%- (P%* . 5) 

1220  LOCATE  1,1:  PRINT  TAB(P%)  HEAD$ 

1230  FOR  1%  -  1  TO  6 

1240  PRINT  USING  ''###.###•' ;YINDEX 

1250  IF  (I%»  3)  THEN  FOR  J%  =  1  TO  2 :  PRINT:  NEXT  J%: 

GOTO  1260 

1255  IF  (I%<>6)  THEN  FOR  J%  =  1  TO  3 :  PRINT;  NEXT  J% 

1260  YINDEX«YINDEX-TEMP 

1270  NEXT  1% 

1280  XINDEX  =  XMIN:  XINCR= (XMAX-XMIN) /7 
1285  LOCATE  22  1 

1290  PRINT  USING  '•########.#'•  ;XINDEX; 

1300  FOR  1%  =  1  TO  7 

1310  XINDEX  =  XINDEX  +  XINCR 

1320  PRINT  USING  ''########.#"  ;XINDEX;  :  NEXT  1% 

1330  P%=LEN(XTITLE$) ;  P%=HDPOS%- (P%* . 5) 

1340  LOCATE  23,1;  PRINT  TAB(P%)  XTITLE$ 
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1350  T1%-LEN(YTITLE$) :  P%-11-(T1%*. 5) 

1360  FOR  1%  -  1  TO  Tl% 

1370  Tl$-MID$(yTITLE$,I%,l) :  LOCATE  P%+I%,1;  PRINT  Tl$ 
1380  NEXT 
1395  RETURN 

1400  • - PLOT  POINTS  ON  GRAPH - 

1410  TEMP2-1/(YMAX-YMIN) :  TEMP3-1/ (XMAX-XMIN) 

1420  IF  MRK$-"»‘  THEN  MRK$-''MARK  '• 

1430  REP2$»LEFT$(MRK$,1) 

1440  T%»L%:  REP$-LEFT$(CURVE$(L%) ,1) 

1450  IF  T%>3  THEN  T%-T%-3  :  GOTO  1450 
1460  IF  REP$»''C''  THEN  GOSUB  1870 
1470  COUNT%»0;  NDP%-0 

1480  WHILE  (PTR%<»NOD%)  AND  (X(PTR%)  <=  XMAX) 

1490  IF  X(PTR%)  <  XMIN  THEN  GOTO  1650 

1500  OLDY%-Y%:  OLDX%-X% 

1510  NDP%  -  NDP%+1 

1520  TEMP1-ABS( (X(PTR%) -XMIN) *TEMP3) *550 

1530  TEMP-ABS((Y(PTR%)-YMIN)*TEMP2)*150 

1540  DELTAY%»CINT(TEMP) :  DELTAX%*CINT (TEMPI) 

1560  Y%»TEMP4%-DELTAY%  :  X%»ORIGINX%+DELTAX% 

1570  IF  COUNT%-0  THEN  OLDY%-Y%:  OLDX%»X%:  PSET(X%,Y%): 

FIRSTX%-X%!  FIRSTY%»Y%:  C0UNT%=1 
1580  IF  REP$*»"P"  THEN  1600 

1590  LINE-(X%,Y%) ,1 

1600  IF  REP2$  <>  «M«  AND  REP  <>  ''P'*  THEN  GOTO  1630 

1610  IF  T%=«1  THEN  CIRCLE(X%,  Y%)  ,  2 , 1, 0 , 6 . 28 , 5/12 

1611  IF  T%=»2  THEN  LINE  (X%,  Y%)  -  (X%+6,  Y%)  ;  LINE- (X%+3 ,  Y% 
-3);  LINE-(X%,Y%) 

1612  ELSE  LINE(X%,Y%)-(X%+6,Y%-3) ,1,B  :  PSET(X%,Y%) 

1620  GOTO  1640 

1630  PSET(X%,Y%) 

1640  IF  REP$=''C''  THEN  GOSUB  2140 

1650  PTR%»PTR%+1 

1660  WEND 

1720  RETURN 

I860  ' - CUBIC  INTERPOLATION - r— 

1870  DIM  H(200) ,A(200) ,L(200) ,U(200) ,Z(200) 

1880  FOR  1%  -  1  TO  N0D%-1 
1890  H(I%)»X(I%+1)-X(I%) 

1900  NEXT 

1910  FOR  I%»2  TO  N0D%-1 

1920  T1*Y(I%+1) *H(I%-1) 

1930  T2»Y(I%) *(X(I%+1)-X(I%-1)  ) 

1940  T3»Y(I%-1)*H(I%) 

1950  A(I%)-3*(T1-T2+T3)/(H(I%-1) *H(I%) ) 

1960  NEXT  1% 

1970  L(l)-1;  U(l)-0:  Z(1)»0 
1980  FOR  I%»2  TO  NOD% 

1990  L(I%)-2*(X(I%+1) -X(I%-1) )-H(I%-l) *U(I%-1) 
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2000  U{I%)«H(I%)/L(I%) 

2010  Z(I%)-(A(I%)-H(I%-1)*2(I%-1) )/L(I%) 

2020  NEXT  1% 

2030  L{N0D%)-1:  Z(NOD%)-0:  C(NOD%)»0 
2040  FOR  J%»N0D%-1  TO  1  STEP  -1 
2050  C(J%)«Z(J%)-U(J%)*C(J%+1) 

2060  T1=(Y(J%+1)-Y(J%) )/H(J%) 

2070  T2=H(J%) *(C(J%+1)+2*C(J%) )/3 

2080  B(J%)»T1-T2 

2090  D(J%)»(C(J%+1) -C(J%) )/(3*H(J%) ) 

2100  NEXT  J% 

2110  ERASE  H,A,L,U,Z 
2120  RETURN 

2130  ' - PLOT  CUBIC - 

2140  IF  PTR%+1  >  NOD%  OR  X(PTR%+1)  >  XMAX  THEN  GOTO  2280 
2150  Tl=(XMAX-XMIN)/560  :  T2=X(PTR%) 

2160  TEMPl-ABS ( (X(PTR%+1) -XMIN) *TEMP3) *550 
2170  DELTAX%»CINT (TEMPI) 

2180  XNEXT%»ORIGINX%+DELTAX% 

2190  X%»X%+2 

2200  IF  X%  >-  XNEXT%  THEN  GOTO  2280 
2210  T2*=T2  +  2*T1 
2220  T4=T2-X(PTR%) 

2230  T3-Y(PTR%)+B(PTR%) *T4+C(PTR%) *T4*T4+D (PTR%) *T4*T4*T4 

2240  TEMP=ABS ( (T3-YMIN) *TEMP2) *150 

2250  DELTAY%»CINT(TEMP) :  Y%=TEMP4%-DELTAY% 

2260  IF  Y%>172  THEN  Y%*172  ELSE  IF  Y%<12  THEN  Y%=12  . 

2270  LINE-(X%,Y%)  :  GOTO  2190 
2280  RETURN 

2400  ' - PLOT  WITH  GRIDS - 

2410  FOR  1%  =  1  TO  9 

2420  Tl%»ORIGINY%+I%*15 

2430  LINE(73,T1%)-(623,T1%)  ,  ,  ,SiH4444 

2440  NEXT  1% 

2450  FOR  I%»  1  TO  13 

2460  T1%=ORIGINX%+I%*40 

2470  LINE(T1%,12)-(T1%,162) , , ,&HAAAA 

2480  NEXT  1% 

2490  RETURN 
2500  END 
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NAME: 


Data  Acquisition  And  Control  (DAAC) 
HEADER  for  BASICA 


FILE  NAME:  DACHDR.BAS 

DOS  DEVICE  NAME:  DAAC 

RESERVED  FUNCTION  NAMES: 

AINM,  AINS,  AINSC,  AOUM,  AOUS, 

'  BINM,  BINS,  BITINS,  BITOUS,  BOUM,  BOUS, 

'  CINM,  CINS,  CSET,  DELAY 

'RESERVED  DEF  SE6  VALUE  NAME:  DSEG 

I 

'NAMES  DEFINED  AND  USED  BY  HEADER: 

'  ADAPT%,  AI,  COUNT,  FOUND%, 

'  HNAME$,  SG%,  STAT% 


When  using  the  BASICA  Interpreter,  this  header 
must  be  executed  before  any  function  calls  are 
made  that  access  the  DAAC  adapter.  It  initializes 
a  number  of  variables  for  each  function  call.  These 
variables  are  reserved  and  should  not  be  used  except 
to  access  the  DAAC  adapter.  This  routine  also  does  a 
DEF  SEG  to  the  segment  where  the  DAAC  Device  Driver 
(DAC.COM)  is  loaded.  If  you  execute  a  DEF  SEG  to 
access  other  hardware,  you  must  DEF  SEG  to  the  segment 
of  the  DAAC  Device  Driver  before  any  subsequent 
calls  to  access  the  DAAC  adapter. 


F0UND%  =  0 
SG%  *  &H2E 

'Start  searching  the  interrupt  vectors  until  you  find 
'one  that  points  to  the  DAAC  device  driver. 

'Do  a  DEF  SEG  to  that  segment. 

WHILE  ((SG%  <=  &H3E)  AND  (F0UND%  =  0)) 

DEF  SEG  a  0 

DSEG  *  PEEK(SG%)  +  PEEK(SG%  +  1)  *  256 

DEF  SEG  »  DSEG 

HNAME$="" 

FOR  AI=10  TO  17 

HNAME$  =  HNAME$  +  CHR$ (PEEK (AI) ) 

NEXT  AI 

IF  HNAME$  =  "DAAC  "  AND  PEEK(18)  +  PEEK(19)  <> 
0  THEN  F0UND%  *  1 
SG%  =  SG%  +  4 


WEND 

IF  F0UND%  = 
NOT  FOUND" 


0  THEN  PRINT  "ERROR:  DEVICE  DRIVER  DAC.COM 
END 
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490  'Now  initialize  all  function  name  variables  for  calls 
500  'to  access  the  device  driver. 

510  AINM  -  PEEK(&H13)  *  256  +  PEEK(&H12) 

520  AINS  »  PEEK(&H15)  *  256  +  PEEK(&H14) 

530  AINSC  -  PEEK(&H17)  *  256  +  PEEK(&H16) 

540  AOUM  -  PEEK(&H19)  *  256  +  PEEK(&H18) 

550  AOUS  »  PEEK(&H1B)  *  256  +  PEEK(&H1A) 

560  BINM  »  PEEK(&H1D)  *  256  +  PEEK(&H1C) 

570  BINS  =  PEEK(&H1F)  *  256  +  PEEK(&H1E) 

580  BITINS  «  PEEK(&H21)  *  256  +  PEEK(&H20) 

590  BITOUS  =  PEEK(&H23)  *  256  +  PEEK(&H22) 

600  BOUM  «  PEEK(&H25)  *  256  +  PEEK(&H24) 

610  BOUS  -  PEEK(&H27)  *  256  +  PEEK(&H26) 

620  CINM  =  PEEK(&H29)  *  256  +  PEEK(&H28) 

630  CINS  =  PEEK(&H2B)  *  256  +  PEEK(&H2A) 

640  CSET  -  PEEK(&H2D)  *  256  +  PEEK(&H2C) 

650  DELAY  =  PEEK(&H2F)  *  256  +  PEEK(&H2E) 

660  'Finally,  execute  any  call  to  re-initialize  the 
670  'device  driver  from  any  former  invocation  of  BASIC. 

680  ADAPT%  »  0 
690  COUNT  =  1 
700  STAT%  »  0 

710  CALL  DELAY  (ADAPT%,  COUNT,  STAT%) 

720  ' 

730  'End  Of  DAAC  BASICA  Header 
740  ' 

750  REM - BALCAL.BAS  (CALIBRATE  BALANCE) - 

760  REM 

765  DIM  L(IOO) ,D(100) ,Y(100) ,PM(100) ,YM(100) ,RM(100) ,LBS( 
100) 

769  DIM  DAT(399) ,DAT%(399) ,DAT1(399) ,DAT1%(399) 

770  FOR  I  *  1  TO  12 

780  IF  I  =  1  THEN  FILE$  *  "LIFTP" 

790  IF  I  =  2  THEN  FILE$  =  "DRAGP" 

800  IF  I  =  3  THEN  FILE$  =  "YAWP" 

810  IF  I  -  4  THEN  FILE$  =  "PITCHMP" 

820  IF  I  =  5  THEN  FILE$  =  "YAWMP" 

830  IF  I  =  6  THEN  FILE$  =  "ROLLMP" 

840  IF  I  =  7  THEN  FILE$  =  "LIFTN" 

850  IF  I  =  8  THEN  FILE$  =  "DRAGN" 

860  IF  I  =  9  THEN  FILE$  =  "YAWN" 

870  IF  I  =  10  THEN  FILE$  =  "PITCHMN" 

880  IF  I  =  11  THEN  FILE$  *  "YAWMN" 

890  IF  I  =  12  THEN  FILE$  =  "ROLLMN" 

900  REM 
910  REM 

920  GOSUB  1380  'RECORD  CALIBRATION  DATA 
930  NEXT  I 
940  CLS 

950  LOCATE  10, 5: PRINT  "CALCULATING  CALIBRATION  CONSTANTS, 
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« Wu^  U"*  tr*.  V.-%  1  r*  V->  I--  ^  *-  rwvy^  »  -1p  .  -^  I  -• 


PLEASE  WAIT" 

960  GOSUB  2100  'CALCULATE  K1&K2  FOR  ALL  PRIME  GAGES 
970  GOSUB  2640  'CONVERT  COUNTS  TO  FORCES 
980  GOSUB  3180  'CALCULATE  INTERACTION  CONSTANTS 
990  REM 

1000  REM  STORE  CALIBRATION  CONSTANTS 
1010  OPEN  "C: CONST"  FOR  OUTPUT  AS  #1 

1020  WRITE  #1, INCALL, INCALD,INCALY,INCALPM,INCALYM,INCALRM 
1040  WRITE  #1,K1LP0S,K2LP0S,K1DP0S,K2DP0S,K1YP0S,K2YP0S 
1050  WRITE  #1,K1PMP0S,K2PMP0S,K1YMP0S,K2YMP0S,K1RMP0S, 
K2RMPOS 

1060  WRITE  #1,K1LNEG,K2LNEG,K1DNEG,K2DNEG,K1YNEG,K2YNEG 
1070  WRITE  #1,K1PMNEG,K2PMNEG,K1YMNEG,K2YMNEG,K1RMNEG, 
K2RMNEG 

1080  WRITE  #1,DDDL1P,DDDL2P,DYDL1P,DYDL2P,DPMDL1P,DPMDL2P 
, DYMDLIP, DYMDL2P 
1090  WRITE  #1,DRMDL1P,DRMDL2P 

1100  WRITE  #1,DLDD1P,DLDD2P,DYDD1P,DYDD2P,DPMDD1P,DPMDD2P 
,DYMDD1P,DYMDD2P 
1110  WRITE  #1,DRMDD1P,DRMDD2P 

1120  WRITE  #1,DLDY1P,DLDY2P,DDDY1P,DDDY2P,DPMDY1P,DPMDY2P 
,DYMDY1P,DYMDY2P 
1130  WRITE  #1,DRMDY1P,DRMDY2P 

1140  WRITE  #1,DLDPM1P,DLDPM2P,DDDPM1P,DDDPM2P,DYDPM1P,DYD 
PM2P , DYMDPMIP , DYMDPM2P 
1150  WRITE  #1,DRMDPM1P,DRMDPM2P 

1160  WRITE  #1,DLDYM1P,DLDYM2P,DDDYM1P,DDDYM2P,DYDYM1P,DYD 
YM2P, DPMDYMIP, DPMDYM2P 
1170  WRITE  #1,DRMDYM1P,DRMDYM2P 

1180  WRITE  #1,DLDRM1P,DLDRM2P,DDDRM1P,DDDRM2P,DYDRM1P,DYD 
RM2P , DPMDRMIP , DPMDRM2P 
1190  WRITE  #1,DYMDRM1P,DYMDRM2P 

1200  WRITE  #1,DDDL1N,DDDL2N,DYDL1N,DYDL2N,DPMDL1N,DPMDL2N 
,DYMDL1N,DYMDL2N 
1210  WRITE  #1,DRMDL1N,DRMDL2N 

1220  WRITE  #1,DLDD1N,DLDD2N,DYDD1N,DYDD2N,DPMDD1N,DPMDD2N 
,DYMDD1N,DYMDD2N 
1230  WRITE  #1,DRMDD1N,DRMDD2N 

1240  WRITE  #1,DLDY1N,DLDY2N,DDDY1N,DDDY2N,DPMDY1N,DPMDY2N 
,DYMDY1N,DYMDY2N 
1250  WRITE  #1,DRMDY1N,DRMDY2N 

1260  WRITE  #1,DLDPM1N,DLDPM2N,DDDPM1N,DDDPM2N,DYDPM1N,DYD 
PM2N,DYMDPM1N 

1270  WRITE  #1,DYMDPM2N,DRMDPM1N,DRMDPM2N 

1280  WRITE  #1,DLDYM1N,DLDYM2N,DDDYM1N,DDDYM2N,DYDYM1N,DYD 
YM2N,DPMDYM1N  • 

1290  WRITE  #1,DPMDYM2N,DRMDYM1N,DRMDYM2N 

1300  WRITE  #1,DLDRM1N,DLDRM2N,DDDRM1N,DDDRM2N,DYDRM1N,DYD 
RM2N,DPMDRM1N 

1310  WRITE  #1,DPMDRM2N,DYMDRM1N,DYMDRM2N 
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1320  CLOSE  #1 

1330  CLS:  LOCATE  10,5 

1340  PRINT  ”  CALIBRATION  COMPLETE” 

1350  END 
1360  REM 
1370  REM 

1380  REM - RECORD  CALIBRATION  DATA - 

1401  COLOR  15,1:  KEY  OFF:  CLS 

1402  PRINT  "CALIBRATION  FOR  THE  LOADING  OF  THE  ";FILE$;" 
COMPONENT" 

1403  PRINT:  INPUT  "AFTER  ALL  AMPLIFIERS  ARE  ZEROED  PRESS 
RETURN" ;X 

1404  CLS 

1405  PRINT  "  ZD  ZL  ZY  ZPM  ZYM 

ZRM  " 

1406  STAT%=0:  MODE%»0:  STOR%»0:  COUNT-100:  RATE=500 

1407  ADAPT%=  0:  DEVICE%=  9:  CHANLO%»  0:  CTRL%=  0:  CHANHI%=3 

1408  CALL  AINSC(ADAPT%,DEVICE%,CHANLO%,CHANHI%,CTRL%,MODE% 

, STOR% , COUNT , RATE , DAT% ( 0 ) , STAT% ) 

1409  ZD  =  0 : ZPM=0 : ZL=0 : ZYM=0 

1410  IF  STAT%<>  0  THEN  PRINT  USING  "EXECUTION  ERROR  ###"; 
STAT%:END 

1411  FOR  J  «  0  TO  396  STEP  4 

1412  DAT(J)=(DAT%(J)/204.8)-10 

1413  ZD  =ZD  +  DAT(J) 

1414  NEXT  J 

1415  ZD  -  ZD/100 

1416  FOR  J  =  1  TO  397  STEP  4 

1417  DAT(J)*(DAT%(J)/204.8)-10 

1418  ZL  »  ZL  +  DAT(J) 

1419  NEXT  J 

1420  FOR  J  =  2  TO  398  STEP  4 

1421  DAT(J)=(DAT%{J)/204.8)-10 

1422  ZPM  =  ZPM  +  DAT(J) 

1423  NEXT  J 

1424  FOR  J  »  3  TO  399  STEP  4 

1425  DAT(J)=(DAT%(J)/204.8)-10 

1426  ZYM  =  ZYM  +  DAT(J) 

1427  NEXT  J 

1428  STAT%=0:  MODE%=0:  STOR%=0:  COUNT-100:  RATE=500 

1429  ADAPT%=  1:  DEVICE%=  9:  CHANLO%»  0:  CTRL%==  0:  CHANHI%=1 

1430  CALL  AINSC(ADAPT%,DEVICE%,CHANLO%,CHANHI%,CTRL%,MODE% 

, STOR% , COUNT , RATE , DAT1% ( 0 ) , STAT% ) 

1431  ZY  *0:ZRM=0 

1432  IF  STAT%<>  0  THEN  PRINT  USING  "EXECUTION  ERROR  ###"; 
STAT% : END 

1435  FOR  J  =»  0  TO  198  STEP  2 

1436  DATl(J)=(DATl%(J)/204.8)-10 

1437  ZRM  -  ZRM  +  DATl(J) 

1438  NEXT  J 
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1439  ZPM  «  ZPM/100 

1440  FOR  J  -  1  TO  199  STEP  2 

1441  DATl(J)»(DATl%(J)/204.8)-10 

1442  ZY  -  ZY  +  DATl(J) 

1443  NEXT  J 

1444  ZL-ZL/100 : ZPM-ZPM/100: ZYM-ZYM/100 : ZY=ZY/100 

1445  LOCATE  3,1;  PRINT  USING  "+#.###'•  ;ZD;  LOCATE  3,10;  PRI 
NT  USING  "+#.###" ;ZL  . 

1446  LOCATE  3,19;  PRINT  USING  "+#.###'•  ;ZY 

1447  LOCATE  3,28;  PRINT  USING  ••+#.###"; ZPM 

1448  LOCATE  3,37;  PRINT  USING  "+#.###"; ZYM 

1449  LOCATE  3,46;  PRINT  USING  ••+#.###"; ZRM 

1451  REM 

1452  PRINT; PRINT 

1453  INPUT  "AFTER  PLACING  ALL  CAL  SWITCHES  TO  +  SETTING  HIT 
RETURN" ;X 

1454  PRINT 

1455  PRINT  "  CALD  CLL  CALY  CALPM  CALYM 

CALRM" 

1456  STAT%*0;  MODE%»0;  STOR%»0;  COUNT=100;  RATE=500 

1457  ADAPT%-  0;  DEVICE%-  9;  CHANLO%-  0;  CTRL%-  0;  CHANHI%«3 

1458  CALL  AINSC(ADAPT%,DEVICE%,CHANLO%,CHANHI%,CTRL%,MODE% 

, STOR% , COUNT , RATE , DAT% ( 0 ) , STAT% ) 

1459  CALD-0 ; CLL-0 ; CALYM-0 ; CALPM-0 

1460  IF  STAT%<>  0,THEN  PRINT  USING  "EXECUTION  ERROR  ###"; 

1461  FOR  J  =  0  TO  396  STEP  4 

1462  DAT(J)»(DAT%(J)/204.8)-10 

1463  CALD  -CALD  +  DAT(J) 

1464  NEXT  J 

1465  CALD  -  CALD/ 100 

1466  FOR  J  »  1  TO  397  STEP  4 

1467  DAT(J)=(DAT%(J)/204.8)-10 

1468  CLL  =  CLL  +  DAT(J) 

1469  NEXT  U 

1470  FOR  J  -  2  TO  398  STEP  4 

1471  DAT(J)=(DAT%(J)/204.8)-10 

1472  CALPM  »  CALPM  +  DAT(J) 

1473  NEXT  J 

1474  FOR  J  -  3  TO  399  STEP  4 

1475  DAT(J)=(DAT%(J)/204.8)-10 

1476  CALYM  =  CALYM  +  DAT(J) 

1477  NEXT  J 

1478  STAT%-0;  MODE%=0;  STOR%=0;  COUNT-100;  RATE-500 

1479  ADAPT%=  1;  DEVICE%-  9;  CHANLO%=  0;  CTRL%=  0;  CHANHI%=1 

1480  CALL  AINSC(ADAPT%,DEVICE%,CHANLO%,CHANHI%,CTRL%,MODE% 

, STOR% , COUNT , RATE , DAT1% ( 0 ) , STAT% ) 

1481  CALY  »0;CALRM-0 

1482  IF  STAT%<>  0  THEN  PRINT  USING  "EXECUTION  ERROR  ###"; 
STAT% ; END 
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1485  FOR  J  -  0  TO  198  STEP  2 

1486  DATl(J)-(DATl%(J)/204.8)-10 

1487  CALRM  »  CALRM  +  DATl(J) 

1488  NEXT  J 

1489  CALRM  »  CALRM/100 

1490  FOR  J  -  1  TO  199  STEP  2 

1491  DATl(J)*(DATl%(J)/204.8)-10 

1492  CALY  »  CALY  +  DATl(J) 

1493  NEXT  J 

1494  CLL=CLL/100 : CALPM=CALPM/100 : CALYM=CALYM/100 : CALY=CALY 
/lOO 

1495  LOCATE  10,1:  PRINT  USING  "+#.###••  ;CALD 

1496  LOCATE  10,10:  PRINT  USING  "+#.###••  ;CLL 

1497  LOCATE  10,19:  PRINT  USING  ••+#.###'•; CALY 

1498  LOCATE  10,28:  PRINT  USING  ••+#.###••  ;CALPM 

1499  LOCATE  10,37:  PRINT  USING  "+#.###'•  ;CALYM 

1500  LOCATE  10,46:  PRINT  USING  ••+#.###'•  ;CALRM 

1501  REM 

1502  REM 


1503 

IF 

I 

s 

1 

THEN 

INCALL  *  CLL  -  ZL 

1510 

IF 

I 

a 

2 

THEN 

INCALD  a  CALD  - 

ZD 

1520 

IF 

I 

= 

3 

THEN 

INCALY  »  CALT  - 

ZY 

1530 

IF 

I 

4 

THEN 

INCALPM  =  CALPM 

-  ZPM 

1540 

IF 

I 

* 

5 

THEN 

INCALYM  -  CALYM 

-  ZYM 

1550 

IF 

I 

SB 

6 

THEN 

INCALRM  SB  CALRM 

-  ZRM 

1611  PRINT: INPUT  "PRESS  ENTER  (RETURN)  TO  CONTINUE" ;X 
1620  CLS: PRINT  "RETURN  ALL  CAL  SWITCHES  TO  CENTER  POSITION" 
1630  PRINT: 

1640  PRINT  "LOAD  THE  ";FILE$;«  GAGE  FROM  0  TO  20  POUNDS  AND 
THFN  BACK  TO  0" 

1650  PRINT  "POUNDS  IN  1  POUND  INCREMENTS.  THERE  SHOULD  BE 
TWO  READINGS  FOR" 

1660  PRINT  "EACH  POUND  WEIGHT  EXCEPT  FOR  THE  LOAD  AT  20 
POUNDS  WHICH  WILL  HAVE" 

1670  PRINT  "ONLY  ONE  READING" 

1680  PRINT 

1690  PRINT  "PRESS  THE  FI  KEY  WHEN  THE  LOADING  IS  FINISHED" 

1700  PRINT  "PRESS  THE  F2  KEY  WHEN  READY  TO  RECORD  THE  DATA 
FOR  THAT  LOAD" 

1701  PRINT:  INPUT  "PRESS  ENTER  (RETURN)  TO  CONTIiroE";X 

1702  CLS 

1703  PRINT  "  DRAG  LIFT  YAW  PITCH  YAW 

ROLL  " 

1704  PRINT  "  MOM.  MOM. 

MOM.  " 

1710  SOAP  »  0:  N-4 
1720  FOR  K  =  1  TO  100 

1730  ON  KEY(l)  GOSUB  1830  'SET  ^TOP  FLAG 

1740  ON  KEY (2)  GOSUB  1841  'RECORD  DATA 

1750  KEY(l)  ON:  KEY(2)  ON 
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1760  IF  SOAP  -  2  THEN  GOTO  1780 

1770  IF  SOAP  -  1  THEN  GOTO  1920 

1775  GOTO  1730 

1780  SOAP  -  0 

1790  NOD%  -  K 

1800  NEXT  K 

1810  GOTO  1920 

1830  REM  SET  STOP  FLAG 

1838  SOAP  -  1 

1839  RETURN 

1840  REM  STEPS  TO  RECORD  DATA 

1841  STAT%=0;  MODE%»0;  STOR%»0:  COUNT*100:  RATE=500 

1842  ADAPT%=  0;  DEVICE%=  9:  CHANLO%=  0:  CTRL%=  0:  CHANHI%=3 

1843  CALL  AINSC(ADAPT%,DEVICE%,CHANLO%,CHANHI%,CTRL%,MODE% 

, STOR% , COUNT , RATE , DAT% ( 0 ) , STAT% ) 

1844  D(K)-0:L(K)-0;YM(K)-0:PM(K)»0 

1845  IF  STAT%<>  0,THEN  PRINT  USING  "EXECUTION  ERROR  ###"; 
STAT% : END 

1846  FOR  J  -  0  TO  396  STEP  4 

1847  DAT(J)=(DAT%(J)/204.8)-10 

1848  D(K)  «D(K)  +  DAT(J) 

1849  NEXT  J 

1850  D(K)  -  D(K)/100 

1851  FOR  J  »  1  TO  397  STEP  4 

1852  DAT(J)-(DAT%(J)/204.8)-10 

1853  L(K)  -  L(K)  +  DAT(J) 

1854  NEXT  J 

1855  FOR  J  =>  2  TO  398  STEP  4 

1856  DAT(J)-(DAT%(J)/204.8)-10 

1857  PM(K)  -  PM(K)  +  DAT(J) 

1858  NEXT  J 

1859  FOR  J  »  3  TO  399  STEP  4 

1860  DAT(J)-(DAT%(J)/204.8)-10 

1861  YM(K)  »  YM(K)  +  DAT(J) 

1862  NEXT  J 

1863  STAT%»0;  MODE%*0;  STOR%»0:  COUNT=100;  RATE=500 

1864  ADAPT%»  1;  DEVICE%=  9:  CHANLO%=  0;  CTRL%=  0:  CHANHI%=1 

1865  CALL  AINSC(ADAPT%,DEVICE%,CHANLO%,CHANHI%,CTRL%,MODE% 

, STOR% , COUNT , RATE , DAT1% ( 0 ) , STAT% ) 

1866  Y(K)  -0;RM(K)=0 

1867  IF  STAT%<>  0  THEN  PRINT  USING  "EXECUTION  ERROR  ###"; 
STAT% ; END 

1868  FOR  J  -  0  TO  198  STEP  2 

1869  DATl(J)=(DATl%(J)/204.8)-10 

1870  RM(K)  **  RM(K)  +  DATl(J) 

1871  NEXT  J 

1872  RM(K)  »  RM(K)/100 

1873  FOR  J  »  1  TO  199  STEP  2 

1874  DATl(J)-(DATl%(J)/204.8)-10 

1875  Y(K)  -  Y(K)  +  DATl(J) 
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1876  NEXT  J 

1877  L(K)»L(K)/100;PM(K)»PM(K)/100:YM(K)*YM(K)/100:Y(K)=Y( 

K)/100 

1878  IF  N>  23  THEN  N-4 :  CLS :  PRINT  '•  DRAG  LIFT  YAW 

PITCH  YAW  ROLL  «:  PRINT  •' 

MOM.  MOM.  MOM.  •• 

1879  LOCATE  N,l!  PRINT  USING  "+#.###'•  ;D(K) 

1880  LOCATE  N,10;  PRINT  USING  ••+#.###'' ;L(K) 

1881  LOCATE  N,19:  PRINT  USING  •'+#.###•’ ;Y  (K) 

1882  LOCATE  N,28:  PRINT  USING  "+#.###'•  ;PM(K) 

1883  LOCATE  N,37:  PRINT  USING  "+#.###'•  ;YM(K) 

1884  LOCATE  N,46:  PRINT  USING  *•+#.###« ;RM(K) 

1885  N-N+1 
1900  SOAP  «  2 

1910  RETURN  'GO  BACK  FOR  NEXT  DATA  POINT 

1920  • - CORRECT  FOR  DRIFT - 

1921  DIFFL  =(L(NOD%)-L(l) ) :  DIFFD=(D(NOD%) -D(l) ) ;DIFFY=(Y( 
NOD%)-Y(l) ) 

1922  DIFFPM*(PM(NOD%)-PM(l) ) :DIFFYM=(YM(NOD%)-YM(l) ) :DIFFR 
M=(RM(NOD%)-RM(l) ) 

1923  D»N0D%-1 

1924  CORL=DIFFL/D; CORD=DIFFD/D: CORY*DIFFY/D: CORPM=DIFFPM/D 
: CORYM=DIFFYM/D : CORRM«DIFFRM/D 

1925  A-1 

1926  FOR  K  »  2  TO  NOD% 

1927  L(K)=L(K)-(A*CORL) 

1928  D(K)=«D(K)-(A*CORD) 

1929  Y(K)-Y(K)-(A*CORY) 

1930  PM(K)=*PM(K)-(A*CORPM) 

1931  YM(K)=YM(K)-(A*CORYM) 

1932  RM(K)-RM(K)-(A*CORRM) 

1933  A  =  A+1 

1934  NEXT  K 

1935  ' - WRITE  DATA  TO  FILE - 

1940  FILE$  =  "C;"+FILE$ 

1950  OPEN  FILE$  FOR  OUTPUT  AS  #1 
1960  WRITE  #l,ZL,ZD,ZY,ZPM,ZYM,ZRM,NOD% 

1970  WRITE  #1,CLL,CALD,CALY,CALPM,CALYM,CALRM 

1971  IF  I»1  OR  I»2  OR  1=3  THEN  GOTO  2079 

1972  IF  1=7  OR  1=8  OR  1=9  THEN  GOTO  2067 

1976  LBS  =  0 

1977  FOR  J  =  1  TO  11 

1978  IF  1=4  OR  1=10  THEN  Dl=20 

1979  IF  1=5  OR  1=11  THEN  Dl=4.5 

1980  IF  1=6  OR  1=12  THEN  Dl=11.5 

1981  MOM  =  LBS*D1  'CONVERT  TO  MOMENTS 

1982  IF  1=10  OR  1=11  OR  1=12  THEN  MOM=MOM*(-l) 

1983  WRITE  #1,L(J) ,D(J) ,Y(J) ,PM(J) ,YM(J) ,RM(J) ,MOM 

1984  LBS  =  LBS+1 

1985  NEXT  J 


Figure  A. 16  BALCAL.BAS  (cont.) 


86 


1986  LBS  "  9 

1987  FOR  J  -  12  TO  NOD% 

1988  IF  1=4  OR  1=10  THEN  Dl=20 

1989  IF  1=5  OR  1=11  THEN  Dl=4.5 

1990  IF  1=6  OR  1=12  THEN  Dl-11.5 

1991  MOM  -  LBS*D1  'CONVERT  TO  MOMENTS 

1992  IF  1=10  OR  1=11  OR  1=12  THEN  MOM=MOM*(-l) 

1993  WRITE  #1,L(J) ,D(J) ,Y(J) ,PM(J) ,yM(J) ,RM(J) ,MOM 

1994  LBS  =  LBS-1 

1995  NEXT  J 

1996  CLOSE  #1 

1997  RETURN  'GO  BACK  TO  SET  UP  NEXT  CALIBRATION 

2067  LBS  =  0 

2068  FOR  J  =  1  TO  21 

2069  WRITE  #1,L(J) ,D(J) , Y(J) ,PM(J) , YM(J) ,RM(J) ,LBS 

2070  LBS  =  LBS  -  1 

2071  NEXT  J 

2072  LBS  »  -19 

2073  FOR  J  =  22  TO  NOD% 

2074  WRITE  #1, L(J) , D( J) , Y( J) , PM( J) , yM( J) , RM( J) , LBS 

2075  LBS  =  LBS  +  1 

2076  NEXT  J 

2077  CLOSE  #1 

2078  RETURN  'GO  BACK  TO  SET  UP  NEXT  CALIBRATION 

2079  LBS  =  0 

2080  FOR  J  «  1  TO  21 

2081  WRITE  #1,L(J) ,D(J) ,Y(J) ,PM(J) ,yM(J) ,RM(J) ,LBS 

2082  LBS  =  LBS  +  1 

2083  NEXT  J 

2084  LBS  =  19 

2085  FOR  J  =  22  TO  NOD% 

2086  WRITE  #1 , L( J) , D ( J) , Y ( J) , PM( J) , YM( J) ,RM ( J) , LBS 

2087  LBS  =  LBS  -  1 

2088  NEXT  J 

2089  CLOSE  #1 

2090  RETURN  'GO  BACK  TO  SET  UP  NEXT  CALIBRATION 

2100  REM - 

2110  REM  CALCULATE  K1&K2  FOR  PRIME  GAGES 

2120  FOR  I  =  1  TO  12 

2130  IF  I  =  1  THEN  FILE$  =  "LIFTP" 

2140  IF  I  =  2  THEN  FILE$  =  "DRAGP" 

2150  IF  I  =  3  THEN  FILE$  =  "YAWP" 

2160  IF  I  =  4  THEN  FILE$  =  "PITCHMP" 

2170  IF  I  =  5  THEN  FILE$  =  "YAWMP" 

2180  IF  I  =  6  THEN  FILE$  =  "ROLLMP" 

2190  IF  I  »  7  THEN  FILE$  »  "LIFTN" 

2200  IF  I  -  8  THEN  FILE$  =  "DRAGN" 

2210  IF  I  =  9  THEN  FILE$  =  "YAWN" 

2220  IF  I  =  10  THEN  FILE$  =  "PITCHMN" 

2230  IF  I  =  11  THEN  FILE$  =  "YAWMN" 
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2240  IF-  1-12  THEN  FILE$  -  "ROLLMN” 

2250  GOSUB  2295  'READ  FILES  AND  PERFORM  CALCULATIONS 
2260  NEXT  I 

2270  RETURN  'GO  BACK  TO  CONVERT  COUNTS 

2280  REM 
2290  REM 

2295  A-0:B-0:C-0:D-0:E-0: 

2300  OPEN  «C:"+FILE$  FOR  INPUT  AS  #2 
2310  INPUT  #2,ZL,ZD,ZY,ZPM,ZYM,ZRM,NOD% 

2320  INPUT  #2,CLL,CALD,CALY,CALPM,CALYM,CALRM 
2340  FOR  J  -  1  TO  NOD% 

2350  INPUT  #2,L(J) ,D(J) ,Y(J) ,PM(J) ,YM(J) ,RM(J) ,LBS(J) 


2360 

IF  I 

-  1 

OR 

I 

- 

7  THEN  X  = 

L(J) 

2370 

IF  I 

-  2 

OR 

I 

8  THEN  X  - 

D(J) 

2380 

IF  I 

-  3 

OR 

I 

sa 

9  THEN  X  - 

Y(J) 

2390 

IF  I 

—  4 

OR 

I 

- 

10  THEN  X 

-  PM(J) 

2400 

IF  I 

-  5 

OR 

I 

- 

11  THEN  X 

-  YM(J) 

2410 

IF  I 

-  6 

OR 

I 

= 

12  THEN  X 

»  RM(J) 

2420 

A 

-  A  + 

(X-2) 

2430 

B 

-  B  + 

(X^3) 

2440  C  =  C  +  (X^4) 

2450  D  =  D  +  (X*LBS(J)) 

2460  E  -  E  +  (X*X*LBS(J)) 

2470  NEXT  J 

2480  CLOSE  #2 

2490  K2  -  ((D/A)-(E/B))/((B/A)-(C/B)) 

2500  K1  -  (D/A)  -  (K2*(B/A)) 

2510  IF  I  =  1  THEN  KILPOS  =  Kl:  K2LPOS  »  K2 

2520  IF  I  -  2  THEN  KIDPOS  -  Kl:  K2DPOS  -  K2 

2530  IF  I  -  3  THEN  KlYPOS  -  Kl:  K2YPOS  -  K2 

2540  IF  I  =  4  THEN  KIPMPOS  =  Kl:  K2PMPOS  -  K2 

2550  IF  I  »  5  THEN  KlYMPOS  -  Kl:  K2YMPOS  -  K2 

2560  IF  I  »  6  THEN  KIRMPOS  -  Kl:  K2RMPOS  -  K2 

2570  IF  I  -  7  THEN  KILNEG  -  Kl:  K2LNEG  =  K2 

2580  IF  I  »  8  THEN  KIDNEG  =  Kl:  K2DNEG  =  K2 

2590  IF  I  »  9  THEN  KlYNEG  -  Kl:  K2YNEG  »  K2 

2600  IF  I  =  10  THEN  KIPMNEG  =  Kl:  K2PMNEG  -  K2 

2610  IF  I  -  11  THEN  KlYMNEG  =  Kl:  K2YMNEG  =  K2 

2620  IF  I  -  12  THEN  KIRMNEG  =  Kl:  K2RMNEG  =  K2 

2630  RETURN  'GO  BACK  TO  CALCULATE  K1&K2  FOR  NEXT  FILE 

2640  REM - 

2650  REM  CONVERT  COUNTS  TO  FORCES 


2660 

FOR  I 

a 

1 

TO  12 

2670 

IF 

I 

= 

1 

THEN 

FILE$ 

> 

"LIFTP" 

2680 

IF 

I 

= 

2 

THEN 

FILE$ 

a 

"DRAGP" 

2690 

IF 

I 

s 

3 

THEN 

FILE$ 

s 

"YAWP" 

2700 

IF 

I 

* 

4 

THEN 

FILE$ 

a 

"PITCHMP" 

2710 

IF 

I 

* 

5 

THEN 

FILE$ 

a 

"YAWMP" 

2720 

IF 

I 

s 

6 

THEN 

FILE$ 

a 

"ROLLMP" 

2730 

IF 

I 

- 

7 

THEN 

FILE$ 

a 

"LIFTN" 
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2740  IF  I  -  8  THEN  FILE$  -  "DRAGN” 

2750  IF  I  -  9  THEN  FILE$  »  “YAWN" 

2760  IF  I  -  10  THEN  FILE$  -  “PITCHMN" 

2770  IF  I  -  11  THEN  FILE$  »  "YAWMN" 

2780  IF  I  »  12  THEN  FIIiE$  -  “ROLLMN" 

2790  GOSUB  2835  'READ  IN  FILE  AND  CONVERT 
2800  NEXT  I 

2810  RETURN  'GO  BACK  TO  CAIAIXJLATE  INTERACTON  CONSTANTS 
2820  REM 
2830  REM 

2835  A=0;B-0:C»0:D=*0;E=0:F»0 

2840  OPEN  "C;"+FILE$  FOR  INPUT  AS  #2 

2850  INPUT  #2,ZL,ZD,ZY,ZPM,ZYM,ZRM,NOD% 

2860  INPUT  #2;CLL,CALD,CALY,CALPM,CALYM,CALRM 
2870  FOR  J  =  1  TO  NOD% 

2880  INPUT  #2,L(J) ,D(J) ,Y(J) ,PM(J) ,YM(J) ,RM(J) ,LBS(J) 
2890  A-( (INCALL/CLL-ZL)*(L(J)-ZL) ) 

2900  B»((INCALD/CALD-ZD)*(D(J)-ZD)) 

2910  C-( (INCALY/CALY-ZY) *(Y(J)-ZY) ) 

2920  D»((INCALPM/CALPM-ZPM)*(PM(J)-ZPM) ) 

2930  E-((INCALYM/CALYM-ZYM)*(YM(J)-ZYM)) 

2940  F»( (INCALRM/CALRM-ZRM)*(RM(J)-ZRM) ) 

2950  IF  L(J)  <  0  THEN  K1  -  KILNEG:  K2  =  K2LNEG  ELSE  K1 
=  K1LP0S:K2  »  K2LPOS 
2960  L(J)»(K1*A)  +  (K2*(A^2)) 

2970  IF  D(J)  <0  THEN  K1  »  KIDNEG:  K2  »  K2DNEG  ELSE  K1 
«  K1DP0S:K2  -  K2DPOS 

2980  D(J)=i(Kl*B)  +  (K2*(B^2)) 

2990  IF  Y(J)  <0  THEN  K1  «  KlYNEG;  K2  «  K2YNEG  ELSE  K1 
-  K1YP0S:K2  «  K2YPOS 

3000  Y(J)«(K1*C)  +  (K2*(C^2)) 

3010  IF  PM(J)  <  0  THEN  Kl-KIPMNEG: K2=K2PMNEG  ELSE' Kl-Kl 

PMPOS : K2-K2PMPOS 

3020  PM(J)-(K1*D)  +  (K2*(D^2)) 

3030  IF  YM(J)  <  0  THEN  K1=K1YMNEG: K2=K2YMNEG  ELSE  K1=K1 

YMPOS ; K2-K2 YMPOS 

3040  YM(J)-(K1*E)  +  (K2*(E^2)) 

3060  IF  RM(J)  <0  THEN  K1=K1RMNEG;K2»K2RMNEG  ELSE  K1=K1 

RMPOS : K2aK2RMFOS 

3060  RM(J)-(K1*F)  +  (K2*(F^2)) 

3070  NEXT  J 

3080  CLOSE  #2 

3090  REM  SAVE  CONVERTED  COUNTS 

3100  OPEN  ''B:''+FILE$  FOR  OUTPUT  AS  #1 

3110  WRITE  #l,ZL,ZD,ZY,ZPM,ZYM,ZRM,NOD% 

3120  WRITE  #1,CLL,CALD,CALY,CALPM,CALYM,CALRM 
3130  FOR  J  -  1  TO  NOD% 

3140  WRITE  #1,L(J) ,D(J) ,Y(J) ,PM(J) ,YM(J) ,RM(J) ,LBS(J) 

3150  NEXT  J 

3155  CLOSE  #1 
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3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3350 

3360 

3365 

3370 

3380 

3390 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3480 


RETURN  'GO  BACK  TO  CALCULATE  INTERACTION  CONSTANTS 

rEM - 

REM  CALCULATE  INTERACTION  CONSTANTS 


"LIFTP" 

"DRAGP" 

"YAWP" 

"PITCHMP" 

"YAWMP" 

"ROLLMP" 

"LIFTN" 

"DRAGN" 

"YAWN" 

■  "PITCHMN" 
•  "YAWMN" 

»  "ROLIMN" 


•READ  IN  FILES  AND  CALCULATE  CONSTANTS 


'GO  BACK  TO  SAVE  CALIBRATION  DATA 


FOR  I  -  1  TO  12 

IF  I  -  1  THEN  FILE$  »  "LIFTP" 

IF  I  =  2  THEN  FILE$  «  "DRAGP" 

IF  I  -  3  THEN  FILE$  -  "YAWP" 

IF  I  -  4  THEN  FILE$  -  "PITCHMP" 

IF  I  »  5  THEN  FILE$  -  "YAWMP" 

IF  I  »  6  THEN  FILE$  -  "ROLLMP" 

IF  I  -  7  THEN  FILE$  »  "LIFTN" 

IF  I  -  8  THEN  FILE$  »  "DRAGN" 

IF  I  =  9  THEN  FILE$  »  "YAWN" 

IF  I  =  10  THEN  FILE$  =  "PITCHMN" 

IF  I  =  11  THEN  FILE$  -  "YAWMN" 

IF  I  »  12  THEN  FILE$  «  "ROLIMN" 

GOSUB  3365  'READ  IN  FILES  AND  CALCULATE  CONSTANTS 
NEXT  I 

RETURN  'GO  BACK  TO  SAVE  CALIBRATION  DATA 

REM 

REM 

A-0 ; B-0 : C»0 : Dl-0 ; D2=0 : D3»0 : D4=0 : D5=0 : E1=0 : E2=0 ; E3=0 : E 
4*0:E5»0 

OPEN  "B:"+FILE$  FOR  INPUT  AS  #2 
INPUT  #2,ZL,ZD,ZY,ZPM,ZYM,ZRM,NOD% 

INPUT  #2,CLL,CALD,CALY,CALPM,CALYM,CALRM 
FOR  J  1  TO  NOD% 

INPUT  #2,L(J) ,D(J) ,Y(J) ,PM(J) /YM(J) ,RM(J) ,LBS(J) 

IF  1-1  OR  1=7  THEN  X=L(J) :Y1=D(J) ;Y2=Y(J) :Y3=PM(J) 
;Y4-YM(J) :Y5=RM(J) 

IF  1-2  OR  1-8  THEN  X=D(J) :Y1=L(J) :Y2=Y(J) :Y3=PM(J) 
:Y4»YM(J) :Y5=RM(J) 

IF  1-3  OR  1=9  THEN  X=Y(J) ;Y1»L(J) :Y2=DCJ) :Y3=PM(J) 
;Y4-YM(J) :Y5=RM(J) 

IF  1-4  OR  1=10  THEN  X=PM( J) : Y1=L( J) : Y2-D ( J) : Y3-Y ( J) 
;Y4-YM(J) ;Y5-RM(J) 

IF  1-5  OR  I-ll  THEN  X-YM(J) ; Yl-L(J) ; Y2=D(J) : Y3=Y(J) 
;Y4-PM(J) :Y5-RM(J) 

IF  1-6  OR  1-12  THEN  X=RM( J) : Y1=L( J) ; Y2-D ( J) : Y3-Y ( J) 
;Y4-PM(J) :Y5-YM(J) 


3490 

A  »  A  + 

(X^2) 

3500 

B  »  B  + 

(X-3) 

3510 

C  »  C  + 

(X-4) 

3520 

D1  »  D1 

+  (X*Y1) 

3530 

El  =  El 

+  ((X^2)*Y1) 

3540 

D2  -  02 

+  (X*Y2) 

3550 

E2  -  E2 

+  ((X''2)*Y2) 

3560 

D3  -  D3 

+  (X*Y3) 

357. 

E3  -  E3 

+  ((X^2)*Y3) 

3580 

D4  -  D4 

+  (X*Y4) 
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3590  E4  -  E4  +  ((X''2)*Y4) 

3600  D5  -  D5  +  (X*Y5) 

3610  E5  -  E5  +  ((X^2)*Y5) 

3620  NEXT  J 

3630  CLOSE  #2 

3640  K12  -  ((D1/A)-(E1/B))/((B/A)-(C/B)) 

3650  Kll  -  (D1/A)-(K12*(B/A) ) 

3660  K22  »  ((D2/A)-(E2/B))/((B/A)-(C/B)) 

3670  K21  ■  (D2/A)-(K22*(B/A)) 

3680  K32  »  ((D3/A)-(E3/B))/((B/A)-(C/B)) 

3690  K31  -  (D3/A)-(K32*(B/A)) 

3700  K42  =  ((D4/A)-(E4/B))/((B/A)-(C/B)) 

3710  K41  »  (D4/A)-(K42*(B/A) ) 

3720  K52  -  ((D5/A)-(E5/B))/((B/A)-(C/B)) 

3730  K51  »  (D5/A)-(K52*(B/A)) 

3740  IF  I-l  THEN  DDDLIP-Kll; DDDL2P-K12 : DYDL1P-K21 : DYDL2P=K 
22:DPMDL1P-K31 

3750  IF  1=1  THEN  DPMDL2P=K32:DYMDLlP=K4l!DYMDL2P=K42 :DRMDL 
1P-K51 ; DRMDL2P-K52 

3760  IF  1-2  THEN  DLDD1P=K11:DLDD2P=K12:DYDD1P=K21:DYDD2P=K 
22:DPMDD1P=K31 

3770  IF  1-2  THEN  DPMDD2P-K32 : DYMDD1P-K41 : DYMDD2P-K42 : DRMDD 
1P-K51 : DRMDD2P-K52 

3780  IF  1-3  THEN  DLDYIP-Kll: DLDY2P-K12 : DDDY1P-K21 : DDDY2P-K 
22:DPMDY1P-K31 

3790  IF  1-3  THEN  DPMDY2P-K32 :DYMDY1P-K41: DYMDY2P-K42 : DRMDY 
1P-K51 : DRMDY2P-K52 

3800  IF  1-4  THEN  DLDPM1P-K11:DLDPM2P»K12 :DDDPM1P-K21:DDDPM 
2P-K22 : DYDPM1P-K3 1 

3810  IF  1-4  THEN  DYDPM2P-K32 :DYMDPM1P=K41: DYMDPM2P-K42 : DRM 
DPM1P-K51 : DRMDPM2P-K52 

3820  IF  1-5  THEN  DLDYMIP-Kll : DLDYM2P-K12 : DDDYM1P-K21 : DDDYM 
2P-K22 : DYDYM1P-K31 

3830  IF  1-5  THEN  DYDYM2P-K32 :DPMDYM1P-K41: DPMDYM2P-K42 : DRM 
DYM1P-K51 : DRMDYM2P-K52 

3840  IF  1=6  THEN  DLDRMIP-Kll : DLDRM2P-K12 : DDDRM1P-K21; DDDRM 
2P-K22 ; DYDRM1P-K3 1 

3850  IF  1=6  THEN  DYDRM2P-K32 :DPMDRM1P=K41: DPMDRM2P-K42 : DYM 
DRM1P-K51 ; DYMDRM2P-K52 

3860  IF  1-7  THEN  DDDL1N=K11;DDDL2N=K12 : DYDL1N-K21: DYDL2N-K 
22:DPMDL1N=K31 

3870  IF  1-7  THEN  DPMDL2N-K32 ; DYMDL1N-K41 : DYMDL2N-K42 ; DRMDL 
1N-K51 : DRMDL2N-K52 

3880  IF  1-8  THEN  DLDDIN-Kll: DLDD2N-K12 : DYDD1N-K21 : DYDD2N-K 
22:DPMDD1N-K31 

3890  IF  1-8  THEN  DPMDD2N-K32 : DYMDD1N-K41 : DYMDD2N-K42 ; DRMDD 
1N-K51 : DRMDD2N-K52 

3900  IF  1-9  THEN  DLDYIN-Kll : DLDY2N-K12 : DDDY1N-K21 : DDDY2N-K 
22:DPMDY1N=K31 

3910  IF  1-9  THEN  DPMDY2N-K32 : DYMDY1N-K41 ; DYMDY2N-K42 : DRMDY 
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1N-K51 : DRMDy2N»K52 

3920  IF  I-IO  THEN  DLDPM1N=K11:DLDPM2N»K12 :DDDPM1N=K21:DDDP 
M2N-K22 : DYDPM1N-K3 1 

3930  IF  I-IO  THEN  DYDPM2N*K32:DYMDPM1N=K41;DYMDPM2N=K42;DR 
MDPM1N-K51 

3940  IF  I-IO  THEN  DRMDPM2N-K52 

3950  IF  I-ll  THEN  DLDYMIN-Kll: DLDYM2N=K12 : DDDYM1N=K21 : DDDY 
M2N-K2  2 :  DYDYM1N<-K3 1 

3960  IF  I-ll  THEN  DYDYM2N-K32 : DPMDYM1N=K41 ; DPMDYM2N=K42 : DR 
MDYM1N-K51 

3970  IF  I-ll  THEN  DRMDYM2N-K52 

3980  IF  1-12  THEN  DLDRM1N»K11:DLDRM2N=K12 : DDDRM1N-K21: DDDR 
M2N-K22 : DYDRM1N-K3 1 

3990  IF  1-12  THEN  DYDRM2N-K32 : DPMDRM1N-K41 : DPMDRM2N-K42 ; DY 
MDRM1N-K51 

4000  IF  1-12  THEN  DYMDRM2N-K52 

4010  RETURN  'GOBACK  TO  SAVE  CALIBRATION  DATA 
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APPENDIX  B 


TABLES 


INITIAL 

SET-UP  FOR 

THE  MODEL 

8255  TRANSDUCER 

AMPLIFIER 

Amp.  # 

Component 

Gain  Set. 

Filter  Set,  . 

Ex.  Volt. 

1 

DRAG 

MAX  VAR. 

1 

+5.0 

2 

LIFT 

MAX  VAR. 

1 

+6.5 

3 

PITCH  M. 

.  IK 

1 

+5.0 

4 

YAW  M. 

MAX  VAR. 

1 

+5.0 

5 

ROLL  M. 

MAX  VAR. 

1 

+5.0 

6 

YAW 

MAX  VAR. 

1 

+5.0 

7 

AOA 

IK 

1 

+5.0 

Table  B.l  Amplifier  Set-Up 
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LOADS 


Table  B.2  (cont.) 


772  -2.35B  0.083  1.434  0.664  29.709  2.000 
562  -1.266  0.044  0.676  0.299  14.989  1.000 
071  0.113  -0.007  -0.011  0.004  0.186  0.000 
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*4in(h*4r^4iNM<oroinn<roN<oO‘00>>4ivN'OaiNin<^ffl<’ 


o*4N«in4OO'4K)«rinrvaQO^N<tinNmNinf0N^ocDr>^ 

^«4^^^^^NNNr'4(MM(MN(MC<4Nr4(M^^ 


CO 

a  n  (h  <0  «  o  «  a  K)  <0  <0  a  <0  *4  N  o  a  K)  <0  o  o  N  N  o  K)  4) 
_i  n  o  «  in  o  ^  n  (h  N  Chin  n  a  *4  00  N  <0  in  N  in  o  *4  o>  K)  >0  o  <■  >4 
r  I  ONNMK)riN^>4«4^o044K)NK>«'Oinioinb')in'OaK)K>« 

z  66666666666666666666666666666 

I  I  1  I  I  I  I  I  I  I 


«4|s4rs^rvK>«K)i>»n«4N«4K)*4ina«aK)a'aini>44rvi>K) 

r4Nlnaao'«^0'0^oaln^l>440K>aK)<ooo^oolnNln'0 

or)a(hOO44MinaaoNK)4‘inaooNh)K)'4ainF0«r')'4 


0000*4^^*«»4^^f^r4NNNNMK)MK)  MK)  N  N  N  N  N  N 
I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I 


>s 


nNO'0«NO'0O<4r>)O»0NaN'00>44<rONOK)«K)<rN'0 

0Q*4^00<4«4*4^r4(S^MN(v4r4^NK)l>)Nr^(Sir4MNr4«4 

00000000000000000000000000000 


•  a  <0  "O  N  n  N  n  ^  ih  M  ^  o -•  fo  in  4*  K)  N  (h  M  i>  a  ih  4*  N  *4  (h  r<.  <r 
a  ^l^o^oaNaM'Ql^K)l^4’l^44ln(^lnlnNao^)'4^^r^ln 
aa  44iorv^4'4<inMoa^4-440N4-*4»^rsioo4-'Or^ao4-4-4‘ 

oo44r4M^yi-or>*is(ho»4('5«^io^r^iriaarv'OininwN»4 
I  I  1  I  I  I  I  I  I 

I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I 


a 
-I  a 


^>a•0(^4‘l^a«4(^(r4alnoln 

«'<ir^ini^inNr^ino'(S4‘OQ> 

ONMNWOOMf4N4-4-r^a 


roor>.Niva)-4rsNNM^44NM 

otooO'inK)'4MO'inaNroch'4 

'40inroo0'0'0'0ivmo'inr)>o 


C>0000000000000-4--4-4Nr4  44^^^-^^^^ 


Table  B.5  Loading  For  Negative  Drag 


100 


*«OtMO|s4)in4'K)N^O 
^  I  I  I  I  i  I  I  I  I 
I  I 


inin<0N*4<rinNN<4Oin 

<0inN'0miBrvino(h'0O 

C4innin^nNO«oaa'< 

•  ••••••••■•a 


*<OBK)'Oininoinoa‘Nin 

(hOCMnooo^oiaiNihin 

r4^)«<00N0*<«<N«40 


M'O'O'ON’^MNM'ONtD 

•4l'0«t0^«^)O<0(hON 

^»r«*MN-OlONIO«ONlO-< 

O0'ors^oin4-K)r4'400 
^  I  I  I  I  I  I  I  I  I  I 


n^a‘Oa'Oo^*^N>oa*r» 

'.nrsfsrv^oD-^ON-^a’ 

-iinmooo>o4imhioo 


CD  •  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o 

on  OOOPOOOOOOOOOOOOOOOOOOOOOOOOO 

<ca  ooooooooooooooooooooooooooooo 

_j  d*-NK)^n4NOB(ho*-NM«rin>ONai(>o(hai^>dn^MN 


• 

a 

a  o  n  N  K)  o  N  ih  (h  K)  o  in  o  N  4  N  in  N  o  0  n  K)  ^  o  K)  o  n  « (h 

-I  N  «  N  <0  4  (h  «  «4  o  <0  O' N  1^  1^  o  a  (h  o  o  in  in  in -4  N  l^  N  ih  N 

Zl  ^  O  O  rO  O  rv  O' N  <0  0  0  ffl  N  N  O  O  O  in  N  N  O'  o  o  K>  «  >0  ^  N 

0  •  - . 

z  o  N  «  <0  0  (h ^ '0  0  O' ^  <0  o  o  <r  4  0  o  K)  (M  O' o  ^  r)  O' rs>  in 
M  «4  ^  *4  *4  ^  N  N  C4  N  K)  K>  K)  KX  «  «r  10  K>  to  to  N  N  N 


• 

0 

0  0  4  O  O' O' O  ^  N  to '0  N  to  n '0  N  N  to  O'  <0  O  N  to  O' N  ^  N  4  N  <0 

_j  o  P4  (h -4 10  ^  to  ^  n  N  n  N  ^  o  to  N  o -4  ffl  in  to -4  ^  fv  ^  10  ♦  to 

Z  I  O'4tO'O0*4O(M^'O^inO'0O'l^»4^0NM«OO^tOO»4tOO 

. . . . 

Z  O  to  O' N  ^  O' N  lO  O  »4  «t  ts.  o  to  fv  o  to  <0  O' N -4  N  10  o  O'  ♦  *4  O' 

Ii  I  I  I  l*4.4^MMMtOtOt04'«<*-|OiniOin<0<OtOllOl0^4'«tO 

I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I 

• 

0 

0  00*4On*40(N|^0rsOO'NO'O.4O«4O'«4NNNO04'4«4 

-I  O  O  to  •<>  O  >0  *4  .0  ♦  ^  04  >0  to  N  O  *4  ^  ^  N  N  o  N  O' O  n -4 -4  O' IM 

Zl  o  *4  o  to  o  O' .0  4- 4  «  o  M  to  o  4- o  in  O' <0  in  to  O' 04  o  in  <4  10  « 

z  d«4  04tod^in'0r4do'd^o4t')^dindo'ddd'0^4'too4«^ 

I-*  I  I  I  I  I  I  1  I  I  |v4v4'4.i4v4.i*r4.4.4.4.4v4.4.M.4v4.4.H 

I  I  I  1  I  I  I  I  I  I  I  I  I  I  I  I  I  I 


0 

>  0 


O4N0tO44O<O'O44<r^0.4N0*4O4O'tOnON0O«N<4)O« 

oninr'''04r^totoi''»op^tO'OoO'ontoNooO'0*40'0' 

oO'O'O'O'O>O'O'O'O'O'0o>0O0or''O'NN<ro'<ro'4‘O'O'44 

dd-ioJtodindrsdo^d^oItodndtvdthdNNioiniooJd 


.  o  o  o '0  to  n  0  04  o>  in  04  O' «  *4  o  <1  m  *4  o  o  o  o  n  44 .4  04  N  44  m 
0  o0O'44rs.0o*uO444io^O'ato0oO'O4O'«r’4O'O'O'tO44to^ 
QO  44  ^  tv  to  40  ^  O  ^  O  O' O  >0  O '0  m  O  04  <’ O  04  O' O' O' to  O' O  O  04  O' 

d44O4dinO'O'OO4toin'O0O'-^ioio>ddd4^4j(D(Dd^'4«dai 

44^.4.4.4^44M04r4  04  04  t0t0n  04  04  04OI040444 


.  4  44  40  O  o  04  O  O  ^  04  ^  to  44  ^  o  to  O  O  O  «’ 0  to  O  O  to  n  to  tv 

0  .Q  04  o  o  o  in  to  to  to  44  o  O' 04  to  n  7  10  o  O' in  O' N  .0  O' to  O' 44  o 

_j0  «4O4no44  44.oo''OO40rvn.O4roooo'<oinO'«intO44MioM 

oo4^ooo4^rv.4^rv04oiv-4rvor'ior4invo'U'idd44rvd 

I  1  I  .4  44  44  44  M  04  04  to  to  to  40  40  n  0  n '0  •«  >0  in  in  in  40  ^  to  to 

I  I  I  I  I  1  I  I  I  I  1  I  1  I  I  I  I  I  I  I  I  I  I  1  I 


Table  B.6  Loading  for  Positive  Yaw 
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«40(^CDN<<lln«rK)^l*40 


M^f'w-K^^inajo^jooo 

NoO'0<rrv«h^4^oo«^(M 

<'in'0>otnK)nK)N(h(M«4 


•  •  •  • 


tt»<aim«rNOQj<o«rNo 

(N|  ^  «i<  ^  ^ 


'®S£NO(^M^owc^al 

^c9qNNK>««inorvo 

N(h'0VinOffll>-4)9«4O 

*•*••••••••• 

n<4g)inN(MflN(h<0K)O 

I  I  I 

I  I  i  I  I  1  I  I 


'0(D0>4«4K)«'K)(hNMO 

^vtoifjN4oa«>oo‘Oo 

*••••••»•••• 

0(hooN'Oin^K)ro<^^o 
r<  I  I  I  I  I  I  I  I  I  I 


ro^Nao»')«rNNin>«i^r<4 

O^OO^OOthOOChO 

*••••••••••• 

'^oo'OON^jionnr'ioo 


•  5NwcMO»<rs.*^fflrs»<o 
W  OO^^^'ONNONblO 
Offl  ^^or^(^Nro(^lo«f'4^^^ 

mJ  *••••••••••• 


.z  {2nonn<om^o*»hcd«o 
m  a)(^co^4NlnNlnNro(^<o 
a  —  »  r*.  M  «^  n 0*  CD  10  o 


M  N  N  M  I  I  I  I 

I  I  I  I  I  I  I 


Table  B.6  (cont.) 


tTOWSWgCS 


LOADS 


80000000000000000000000000000 
oooooooooooooooooooooooooooo 
ooooooooooooooooooooooooooooo 

d«4NK)«in'Or^aa(hd«^NK)«in'ONaio‘do‘mN<oin^K)r>4 

I  I  I  I  I  I  I  I 

I  I  I  I  i  I  I  I  I  I  I  I  i  I  I  I  I  I  I 


K)inoo'«NK)«4)n*4in(^K><'NN>o>40>ih'0'<0‘inoooN<H 

o*M*o^oN^Mr«.0‘ino*or>‘no‘«Hoo*Nin'OMirto^O‘^oio 

OMNin»r>»N^O^NO‘*rNNON«-rJO‘«OOa»NK)ON^N 

d-iMindNoidcJddinr^ajd-^NdinnddddN-^dajd 

I  1  1  I  1  — 

I  I  I  I  I  I  I  I  i  I  I  I  I  I  I  I  I  I  I  I  I  I 


•<OIO-<N^intvO‘K)'0^tM«fN^OO‘l>>0-^rv|00--04tMNO 
»<0’OinO‘^aJO'ONOD-OM  —  MMIO^»<N^K>aJOMOBK)^N 
O(Da>(honMO'4MN^o<rNNih<rONOin0^«r<4'4in'O 

dNinoBcJinoa-^in(a»^dNdddo‘K)NdddNd-<NddN 

-^-i-<NNNK)i>oM^^^^ioioio«o<oninin»^^n 


K)«K)(hminK)in««4ainONOfflOoo^N>ooK)Oh^'Om'0 
'0^(DmNK)Mr'iih«'K)o««OK)ih>4«in>oa)'«4‘'0^<‘inin 
om^NChmin^M  —  o*0“inMN«-»ooooO‘N'0^in^ininm 

od'^dNM^d'ONrvQDod'^Nwdiod'odinddiN-^do* 


*<fflNN^N^jn«>0'mN*^rvN'»^4'»^»finNinK)ino<0'0 

oin'Omoomfflr»Nomino«-«MNO'<mmO‘ONO*o^<r-<r 

OlhO'O'OOO'O'OOOfflOOOOO'O'OffiOO'^O^OlhntMh 

od’^rJdiniodaJddd’^Nddinddajddaj-O'odMN  — 

I  I  I  I  I  I  I  I 

I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I 


0'0‘r^'Qin(h«^ooinMinrsr4<o4’<oinNommmoa)'0'4r^ 
inin^or»m^o«ooo‘OMo*0‘»<tMmio^fflo  —  (oo*in’-»«r«r 
oooo*-<^OMMrs<irso^omoooo»^o*Nio-<oM«oin 

oJK)Miodffld'Hd^ior^(Dd»^Min>oajdajNindrJdoDN 

»  I  I  I  I 

I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I 


inNO«4(hN'4aiao«t^roinoin'0<oinO'On«N'ONOK)o 

IO'0C'linN»^(N0*'0f-J0''0O0‘-<»h*OOI>0OO'0«0«»-inM0‘N 

O0‘^MK)K)fflr<'0owo-*r<0‘«0mn«i-0‘MmN*<fflN^inN 

ONindr-iinmr'JuTdnNddajr'J'O^dddddNajNdMd 

1  ^•.-•'-^MjNMK)n«r«r<»ion'O'0>0NN'04)inn^^5f 


Table  B.7  Loading  for  Negative  Yaw 


01  •.  oooooooooooo 
a  01  oooooooooooo 
« at  oooooooooooo 

OJ  >■•••••••••• 

J  ^  O  Ih  01  S  <0  in  ^  K)  N  ^  o 

I  i 


Nr^>o-4*<(h<oN«ato>o- 

Nr*K)NNai«0OOW<9-O 

in<‘MNoaiN'OinM-<o 

*<*<*<*<*<  I  I  I  I  I  I 
(fill 


o<ra3<ON<ro<4i«ino>'< 

<-ctNinoinoNooN«*< 

(h(aa)04in<oK)«*'<oo 

<>«<r^tfi«4aQinNo-'Otoo 


MO-WKl^-M-OfflO-O-^K) 
*400ffi4)ai*<'ono'0-oci'0 
NK)o<r«*aio*<iof^ODO 
•  ••••••••••■ 

0‘0Drv4)IO«r^K)N»<OO 


•  W  N  m  O  «<•<>*  O -0  N  4)  ** 

oj  rs  n  *<  N  «  <1  «r  <r  M  0*  o 

>  at  0  0  0-00000000-0 

«J  •••••••••••• 

'<oai(DN4)in4‘ror4oo 
*«  -<  I  •  I  I  I  I  I  I  I 
I  I 


in-<rv*<roo<9‘0*<*4(MO- 
'00-ooo^t^ooo-o•o^ln 
or^^tfNODcoroo-o-oo 
•  •••«*■••••« 
in^M*<0-N4)Uln(S*«O 
*<*<»<*<  I  I  I  I  I  I  I 
((II 


*<ors4i4J'00-ONr<wio 

4ir»cD0DNr'i*'No«-*'-»in 

-obiMOtn'Oao4‘«<ino-o 

r^^o-'O  —  minMo-yir'io 

I 


Table  B.7  (cont.) 


ooooooooooooooooooooo 

2999^0000000000000000 

ooooooooooooooooooooo 

ooooooooooooooodddddd 

NV'OooN^'OaaocS'OVNOO'O^rtM 


O^'O^'ONinN'OM^OCD'O'O'^CDaitDOOO 

9C512®‘*^*‘'*f^'<*”®NIONO‘in«ONO‘K)*OCD 

ooo(0<<ir>in*40(sinoooihoooi>OQino 

o*4(^NK)K)in'0^«in'0inindHK)>HJdd 

t  i  I  I  i  I  I  I  I  I  I  I  I  i  I  I  I  I 


9t  M 'fl  S  **■  w '*“  <►  <0  ffl  >0  N  <0  N  in  M  m 
-J  O  N  <a  M  N  4  N  N  (h  N  M  K>  N  (M  K)  4*  K)  K)  OD  O 
I  O  <0  N  <0  o  O  in  N  flO  «  N  <0  K)  >0  o 

•  **••••••••••••••••••• 

z  o(Dr^in«Noas>o^M«-omoN^b')NODo 
I  N  n  <r  n  in  >0  N  OD  N  <0  in  in  4- K)  N  T 


ffl  inNin'««4N^K)^N«4«4^4)^o>4K)tha)in 
-J  N^inNinoihtMo*<’oa'Oin«'inK>r^inin-ON 
I  OOK)NinN>00‘^(hO^'OOON'ONI><-irvo 

z  OK)'4IO^(^ln•4N^^)lnN^ln(^4’(^•ocMo 
I  *«N^in'(i(ao«4(oin»’)««OQD'Qini^N«^  i 


’^t?^^SNO*M0DN'O<^r*>K)>O<«‘O0)K)(hh<.i^ 

9252fi®®*^‘^‘^®®^*^N-^o*ininK)^o 

00000’^»^»<«^*^»**^»<*^»^000000 

oooooooooooooooododdd 

I  I  I  I  1  1  I  I  I  I  I  i  1  1  I  1  I  1  I  1  I 


M<2g'(0«roi>o^aiinO'iDinK)<iinrorva>^ 

Nino^^oO'Oih<i'aNiocor<i(srvio(D^«N 

ooqaN^in<i>Q^ttii^'OinNr^'od'OoDGod 

MinO'M^Noin'Oih'OfooN^’^coiniN 


^jroooMMino^co^ininioN'^ooDoa]^ 

^l^^D^^»^O'0«-•^»^n^•*<ot^Nlnm^ln^l 

09>oD^O''^<4'^coo<r>4GO<on>4dddi>d 

'^(SMin'Oi^ioO'xoaoN^in^cN*^ 


Table  B.8  Loading  for  Positive  Pitching  Moment 


L  D  Y  PM  YM  RM  LOADS 

LBS.  LBS.  LBS.  IN. -LBS.  IN. -LBS.  IN. -LBS.  IN. -LBS 


OOOOOOOOOOOOOOOOOOOOO 

ooooooooooooooooooooo 

OOOOOOOOOOOOOOOOOOOOO 

ddddododdddddoddddddd 

N«<imoM«'aaQoa)4«NoaO'0«r<4 

I  I  I  I  I  I 

I  I  I  I  I  i  I  I  I  I  I 

^NNrvo^^r^^NiO'^'ON'OODinoNaiho^ 

OO'fl'ONM^^-^'O'ONO'NtMOO&'MODfl'O 

NO'Oinor^MinnoBOioNoinNNMO^N 

-<oacnin«rN'<ONin«»dNO'0-^K>in'Oa)'^ 

•^^lK)^lnln•ONOQrv^lnln^^o^4-< 


NM^N^-<O(^•-<-<^lnK)K)'0^l'0OK)aJ^I 

oinoo'0oinowoino<a-K)'00Q>0Ni>0‘O 

ONWWin^^NtMnOth^OQIh^rt^OD^JO 

ddo'oai^du'idN'^d^NdiddNoocDchd 

I  ^NM^in^NajO'OON^io^-nN*^  i 
I  I  I  t  I  I  I  I  I  I  I  I  I  I  I  I  I 


inO'ODOQM^^OfONN^'O'ONN^M'HOin 

a)^(hQQ'4^.4ors.oo<oNN4'N'*00'aNC0 

o*<Moooffl<oNNmin-<inMa)ONMoo 

ooodododddododddddodd 
I  N^iooBO'  —  ««->oajoa)'0^cso‘CDin’<-r'i  i 

I  I  I  I  I  I  I  I 

I  4  I  I  I  I  I  I  I 


K)^ino<^MNino‘M"0<rNON'Oina)oouTM 

*^MOMinin’-»0’-i»^'<^in^'ONioo^N*^ 


o  o  o 

I  I  I  I  I  I  I 


I  I  I  I  I  I  I  I 


K)o<i^r>JN<9-inwmoinN’tin'0inoNinK) 

in(hK)(>in^ooDNNnN>ootNO‘a3orooDa)iii 

ONinooinDDO'OO'O'r-jn'OO'Owo'ioN'ro 

Of^'od^^^•^<^^>ldo*dln^^«tdN'Hd^d 

tN^r».o*Minaj^^N^-<CDiONO*N^r'4 
I  I  I  1  I  I 

I  I  I  I  I  I  I  I  I  I  I 

MNOMnOMt>^0*«00‘rvOinODrvt^^QQ(S 

N«rin^r^«rooi>o!>a3in(>M[h>o^a)a)iN 

OM^OBCN^O'^'tODin'OinODNONOD^rtNOO 

oi>o-<'4Jor*inM^dindinddid-^0'i>d 

I  INK)^'0r‘Ch*^MlOn-<0*Nin<»M'-l  I 
I  I  I  I  I  I  I  I  I  I 

I  I  I  I  I 


Table  B.9  Loading  for  Negative  Pitching  Moment 


V 


i 


4 


I 


CD 

(0  a 

Q  J 
«  I 

°  z 


n 

a 

“z 


a 

a 


r 

> 


a 

a 


£ 

a. 


a 
>  a 


000000000000000880008 
onononoa  on  ononononono 


o^ihwaNi^»^'OOino«o-<NNaMo*^o 


(S4«4«4*4«4ar^*4NK>(hK>K)0‘(Maaa(hnN 

«4«on^«4’'0(>«^«4in<aK)aMnNn'4 

NK)«0M0‘O*««‘N»«NnNOaWNM^-<(N| 


o«4Mn<r«'0'arvai>aN.r>>b')nn^N'«o 


OON(hNMONSNO‘nn-«ON 

vHtfaaa^Ni^NN^O'ONa^ 

^(Ma<K)'ONO^^^a'«o<^n 


N  N  -<  O 

^  v4  0>  (>  *4 

^  n  o  ♦ 


o^aMar<ir»N^onoaNNNBK)(>^o 

I  N  N  M  M  ^  K>  K)  N  N  ^  I 


nnK)Oon(>K)^>o(MOnK)i>4*nnK)nn 
NWon**noh*^ONnN  —  a^^-nrsON 
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